• Даю 25 баллов!! Даны три целых числа. Найти произведение двух наибольших из них. Напишите программу в паскале.

Ответы 3

  • на всяк случай
    • Автор:

      patsyho
    • 5 лет назад
    • 0
  • program p1;var a,b,c:integer;beginwriteln('Введите число a');read(a);writeln('Введите число b');read(b);writeln('Введите  число c');read(c);writeln('Производная двух максимальных чисел: ');if a>b then if c>b then write(a*c)  else   write(a*b)    else     if c>a then write(b*c)      else write(b*a);end.
  • Решение с циклами. На мой взгляд, оно менее запутанное, чем с условиями.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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