Напишите ** языке Паскаля!!!С клавиатуры вводится числа пока не введётся 0;посчитать...

Question

Напишите на языке Паскаля!!!С клавиатуры вводится числа пока не введётся 0;посчитать кол-во чисел оканчивающихся на 7.

Answer 1

Var a,k:integer;
begin
k:=0;
write('a='); readln(a);
while a<>0 do
 begin
 if abs(a) mod 10 = 7 then k:=k+1;
 write('a='); readln(a);
 end;
writeln('k=',k);
end.

Пример:
a=56
a=317
a=76
a=-247
a=123
a=97
a=54
a=-27
a=0
k=4