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

Question

Информатика

Ната

24 апреля, 18:49

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

+2

Ответы (1)

Знаете ответ на вопрос?

Минюша · Answer 1

На языке Блеза Паскаля, французского философа и математика:

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.