Question

Составьте программу.С клавиатуры вводится 15 чисел,сколько из них оканчивается на 4

Answer 1

Var
   A:integer;
   k,n:integer;
Begin
Write('Введите 15 чисел: ');
k:=0;
For n:= 1 to 15 do
    Begin
    Read(A);
    if Abs(A) mod 10 = 4 then k:=k+1
    End;
WriteLn('Количество чисел, оканчивающихся на 4: ',k);
End.