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х значными , но опять же задание не ясно!