Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста !дано натуральное число : найти в нем общее количество цифр 1 и 2.
на языке Паскаля

Ответ оставил Гость

Var a,n : Integer;
Begin
  Readln(a);
  n:=0;
  While a>0 do
  Begin
   Inc(n,Ord((a mod 10) in [1,2]));
   a:=a div 10;
  end;
  Writeln(n);
end.