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

238

255

Посмотреть ответы 3

Ответы на вопрос:

NastyaBelmesova

Информатика

4,7(32 оценок)

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 7 35

belka1006

Информатика

4,7(14 оценок)

Var m: array [1..3] of real; var i, imin, imax: integer; var num, pro: real; begin imin: =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.