Составьте программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел

Question

Составьте программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел

Экономика

Гость

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

Accepted Answer

var a,b,c,d:integer; begin readln(a,b,c); if (a>b) and (b>c) then d:=a*b; if (a>c) and (c>b) then d:=a*c; if (c>a) and (b>a) then d:=c*b; writeln(d); end.