Среди цифр четырехзначного числа есть четная. Накидал тут решение, но где-то ошибка, не могу понять гдеvart, s, d, e, i: integer-beginfor i:= 1000 to

1.Среди цифр четырехзначного числа есть четная.

 

 

 

Накидал тут решение, но где-то ошибка, не могу понять где

var
t,s,d,e,i: integer;
begin
for i:= 1000 to 9999 do
t:=i div 1000;
s:=(i div 100)mod 10 ;
d:=(i div 10) mod 10;
e:=i mod 10;
if ((t mod 2=0) or (s mod 2 =0) or (d mod 2 =0) or (e mod 2=0)) then writeln ('TRUE') else writeln ('FALSE');
end.

  • Ну если задание что-то вроде "Есть ли среди 4х значного числа четные числа " 
    то все гораздо проще да и непонятно зачем ты сделал цикл по всем 4х значными , но опять же задание не ясно!