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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.