Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1

Question

Информатика

Фивея

12 декабря, 19:07

Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1

+3

Ответы (1)

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

Настюра · Answer 1

Var n, k:integer;

begin

write ('n = ') ;

readln (n) ;

k:=0;

while n>0 do

begin

if n mod 10 = 1 then k:=k+1;

n:=n div 10;

end;

writeln ('k = ', k) ;

end.

Пример:

n = 3191

k = 2