Запишите эту на паскале: дано натуральное число. - вопрос №9028729 от Kolian5617 10.01.2020 19:51

Question

Информатика: Запишите эту на паскале: дано натуральное число. определить, сколько раз в нем встречается цифра 3

Kolian5617 · Answer

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (n,k):=(ReadInteger('n='),0);
while n>0 do begin
    if n mod 10=3 then k+=1;
    n:=n div 10
    end;
Writeln('Количество троек в числе равно ',k)
end.

Пример
n= 163243
Количество троек в числе равно 2