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

Question

Информатика

Коляха

7 марта, 19:23

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

+1

Ответы (1)

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

Катуня · Answer 1

Var

A, B, C, M:real;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

Write ('C = ') ; ReadLn (C) ;

M:=A;

if M
if M
if A>B then A:=B;

if A>C then A:=C;

Write (A,' + ', M,' = ', A+M)

End.