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

Question

Информатика

Гела

9 апреля, 11:30

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

+4

Ответы (1)

Знаете ответ?

Галла · Answer 1

Var a, k:integer;

begin

k:=0;

write ('a=') ; readln (a) ;

while a0 do

begin

if abs (a) mod 10 = 7 then k:=k+1;

write ('a=') ; readln (a) ;

end;

writeln ('k=', k) ;

end.

Пример:

a=56

a=317

a=76

a=-247

a=123

a=97

a=54

a=-27

a=0

k=4