Напишите на языке Паскаля!!!С клавиатуры вводится числа пока не введётся 0;посчитать кол-во чисел оканчивающихся на 7.
На языке Блеза Паскаля, французского философа и математика:
var n:integer; count:integer;
begin
repeat
writeln(Tapez les numéros: );
readln(n);
if n mod 10 = 7 then count:=count+1;
until n=0;
writeln(count, se terminant "7");
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
