• Нужна помощь по информатике. Задача:
    Написать программу вычислить произведение из двух наибольших введенных с клавиатуры чисел.( в ПАСКАЛЕ). Проще говоря, у меня есть три числа, я должен ввести их, и два наибольших из них должны перемножаться. Нужно написать программу используя условные операторы. Заранее спасибо.

Ответы 2

  • var m: array [1..3] of real;var i, imin, imax: integer;var num, pro: real;beginimin:=1;imax:=1;for i:=1 to 3 do read (m[i]);for i:=1 to 3 do   begin  if m[i]<m[imin] then imin:=i;  if m[i]>m[imax] then imax:=i;  end;num:=m[1]+m[2]+m[3]-m[imin]-m[imax];pro:=num*m[imax];write (pro);end.
    • Автор:

      bossyqzsk
    • 5 лет назад
    • 0
  • var  a,b,c:integer;begin  Write('Введите три целых числа: '); Readln(a,b,c);  if a>b then    if b>c then Writeln(a*b) else Writeln(a*c)  else    if a>c then Writeln(a*b) else Writeln(b*c)end.Тестовое решение:Введите три целых числа: 5 -2 735
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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