Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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