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

Question

Информатика

Фабиана

16 апреля, 10:26

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

+4

Ответы (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.