• Нужна помощь по информатике. Задача: Написать программу вычислить произведение из двух наибольших введенных с клавиатуры

Ответы 1

  • Program proizvedenie_naibolshih;Var a, b, c, mult: integer;beginwriteln(\'Введите три числа с клавиатуры\');readln (a, b, c);begin;if (a > b) and (b > c)then mult := a * b;end;begin;if (a > b) and (b < c)then mult := a * c;end;begin;if (a < b) and (b < c)then mult := c * b;end;writeln (mult);end.Программа проверена в PascalABC
  • Добавить свой ответ

Войти через Google

или

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

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

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