С клавиатуры вводится целое положительное число. Определить, сколько раз в этом числе встретилась цифра 5.
Packal ABC
срочно пожалуйста
Packal ABC
срочно пожалуйста
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.