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

Question

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

Answer 1

Var K,n:integer; Begin K:=0; Writeln('Введите число'); Readln(n); While n<>0 do Begin If (((n mod 10)=7) or ((n mod 10)=-7)) Then K:=k+1; Readln(n); End; Writeln('Чисел оканчивающихся на 7: ',k); End.