Найти произведение 2 х максимальных чисел из 3 х

Question

Информатика

Велимира

28 мая, 15:06

Найти произведение 2 х максимальных чисел из 3 х

+5

Ответы (1)

Знаете ответ?

Декабриныч · Answer 1

Var a, b, c, d: integer;

begin

write ('числа a, b, c через пробел: ') ;

readln (a, b, c) ;

if b>a then

begin

d:=a;

a:=b;

b:=d;

end;

write ('произведение: ') ;

if b>c then write (a*b)

else writeln (a*c) ;

end.

числа a, b, c через пробел: 11 4 15

произведение: 165