Question

Задано n произвольных чисел. Найти количество всех чисел заканчивающихся на цифру 7

Answer 1

Ответ:

Program chisla;

Var

Count,i, n : integer;

Begin

readln(n) ;

Count:=0;

For i := 1 to n do begin

readln(n);

If (n mod 10) = 7 then begin

Count:= Count+1;

end;

end;

writeln(Count) ;

end.

Объяснение:

Я затестила, работает