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.