• Вводится последовательность целых чисел, конец ввода – число, в котором две последние цифры равны. Найти количество введенных чисел, кратных 4
    PASCAL ABC

Ответы 1

  • Var A,k:integer;Begink:=0;RepeatRead(A);if A mod 4 = 0 then k:=k+1;Until A mod 10 = (A div 10) mod 10;WriteLn('Искомое количество: ',k);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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