Напишите на языке Паскаля!!!С клавиатуры вводится числа пока не введётся 0;посчитать кол-во чисел оканчивающихся на 7.
Ответы на вопрос
Ответил Аноним
0
На языке Блеза Паскаля, французского философа и математика:
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.
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.
Новые вопросы