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

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

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

VarK,n:integer;BeginK:=0;Writeln(Введите число);Readln(n);While n<>0 doBeginIf (((n mod 10)=7) or ((n mod 10)=-7))ThenK:=k+1;Readln(n);End;Writeln(Чисел оканчивающихся на 7: ,k);End.