Question

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

Answer 1

Program fff;
var  i, n, c : integer;
begin  for i := 1 to 15 do begin    readln(n);    if n mod 10 = 4 then      c := c + 1;  end;    writeln(c);end.