Question

пусть дано N чисел,введенных с клавиатуры. Найти количество только тех из них,которые кратны 2 и оканчиваются на 8.
Программа в паскале(с помощью цикла)

Answer 1

Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
    Begin
    Read(A);
    if (A mod 10 = 8) then k:=k+1;
    End;
WriteLn(k);
End.