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

Ответы 1

  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years