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

Question

Информатика

Грипа

14 ноября, 23:00

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

+5

Ответы (1)

Знаете ответ на вопрос?

Люля · Answer 1

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.