• Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2

Ответы 1

  • Var a:integer;BeginWrite('Введите целое число: ');ReadLn(a);if a mod 2 = 0 then a:=a div 2else a:=a*2;Write(a)End.
  • Добавить свой ответ

Войти через Google

или

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

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

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