Иезекииль
6 год назад
С клавиатуры вводится целое положительное число. Определить, Как узнать сколько раз в этом числе встретилась цифра 5.Packal ABCсрочно пожалуйста
ОТВЕТЫ
Виктор
Oct 24, 2020
var
n, c: integer;
begin
read(n);
c := 0;
while n > 0 do begin
if n mod 10 = 5 then inc(c);
n := n div 10
end;
write(c)
end.
n, c: integer;
begin
read(n);
c := 0;
while n > 0 do begin
if n mod 10 = 5 then inc(c);
n := n div 10
end;
write(c)
end.
150
Смежные вопросы:
