Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Пользователь вводит трёхзначные числа с клавиатуры. Нужно вывести числа в записи которых все 3 цифры чётные. На языке Pascal. Помогите с написанием программного кода

Ответ оставил Гость

Uses crt;var a:array[1..100] of integer;   
b,k,l,i,n:integer;
begin
writeln(Skolko chesel vy bydete vvodit?);
read(n);
for i:=1 to n do begin
write(Vvedite ,i, chislo: );
read(a[i]);
end;
for i:=1 to n do begin
b:=a[i] div 100;
k:=a[i] div 10 mod 10;
l:=a[i] mod 10;
if (b mod 2 = 0) and (k mod 2 = 0 ) and (l mod 2 = 0) then writeln(a[i]);
end;
end.