Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Определите, сколько раз цифра "7" встречается в записи данного числа.

Question

Информатика

Варсонофий

13 августа, 04:00

Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Определите, сколько раз цифра "7" встречается в записи данного числа.

+1

Ответы (1)

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

Феодор · Answer 1

var

a, b, k:integer;

begin

write ('Введите число: ') ;

readln (a) ;

k:=0;

while a0 do

begin

b: = a mod 10;

a: = a div 10;

if b=7 then k:=k+1;

end;

writeln (k) ;

end.