Pascal ABC. Найти количество четверок в числе, используя crt. Заранее спасибо :)

Вопрос школьника по предмету Информатика

Pascal ABC. Найти количество четверок в числе, используя crt. Заранее спасибо 🙂

Ответ учителя по предмету Информатика

Program n1;

uses crt;

var n,m,p,k:integer;

begin

write(‘введите число: ‘);

readln(n);

m:=n;

k:=0;

while m<>0 do begin

p:=m mod 10;

if p=4 then k:=k+1;

m:=m div 10;

end;

writeln(‘кол-во 4: ‘,k);

end.