Напишите программу которая запрашивает на вход натуральное число и определяет, сколько раз в его записи встречается цифра 3. P.s Похожая программа была для единицы, но я не понимаю, как преобразовать ее для 3. Объясните алгоритм

Программа:

(см. прикрепленный файл)

// PascalABC.NET 3.6

begin

 ReadInt64('Введи натуральное число:').ToString.Count(c -> c = '3').Print

end.

Объяснение:

ReadInt64('Введи натуральное число:') - запрос ввода целого числа длиной до 19 цифр

.ToString - преобразование числа в строку символов

.Count(c -> c = '3') - подсчет символов '3' в строке

.Print - вывод результата

ответ:

не знаю под чем ты подразумеваешь алгоритм, если это программа на паскаль то вот, нет ну тут уже сами справитесь, тут уж все разжевано

объяснение:

program my;

var

i: integer;

bil: longint;

a: array [1..6] of integer;

begin

write('введите номер билета');

readln (bil);

if (bil> ) or (bil< 1) then begin  

writeln('введён неправильный номер');

end

else

  for i: =1 to 6 do

  begin

  a[i]: =bil mod 10;

  bil: =bil div 10;

    writeln(a[i]);

  end;

  if (a[1]+a[2]+a[3])=(a[4]+a[5]+a[6]) then writeln('вы выиграли')

  else

  writeln('вы проиграли');

end.