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

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