Question

Написать программу ( в Pascal abc): Вводится 3 целых числа. Сколько среди них будет чётных чисел, оканчивающихся на 8

Answer 1

var a:array [0..5] of Integer;    n,h,i:Integer;
begin 
 h:=0; 
 for i:=0 to 5 do 
Readln(a[i]); 
for i:=0 to 5 do 
 if (a[i] mod 2=0) and (a[i] mod 10=8) then 
  Inc(h); 
Writeln(h); 
readln;
end.

Answer 2

это разве проблемма?

Answer 3

*проблема

Answer 4

Нужно писать правильное решение.

Answer 5

все

Answer 6

теперь исправил