Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в...

Question

Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе

Answer 1

Var a,k,n,m:integer;
begin
  writeln('Введите число');
  readln(a);
  m:=a; k:=0; n:=0;
  while a<>0 do begin
    if a mod 10=2 then k:=k+1
    else if a mod 10=0 then n:=n+1;
  a:=a div 10;
  end;
  writeln('В числе ',m,' ',k,' двоек и ',n,' нулей');
  readln
end.