• Меньшее из двух чисел z,s заменить их полусуммой , а большее - их удвоенным произведением. Паскаль

Ответы 1

  • var  z, s: integer;begin  write('Введите числа: ');  read(z, s);  if z < s    then writeln('Новые значения:', #10, 'z=', (z + s) / 2, ' s=', z * s * 2)  else if z > s    then writeln('Новые значения:', #10, 'z=', z * s * 2, ' s=', (z + s) / 2)  else writeln('Числа равны');end.
    answer img
    • Автор:

      mckinley
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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