Задать вопрос Регистрация
Помочь другим

  • ввести число если оно четное разделить его на 4 если не четное умножить на 5

Ответы 1

  • Var A : Integer;Begin  Readln(A);  If Odd(A) then A:=A*5 else A:=A div 4;  Writeln(A);end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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