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

Question

Информатика

Корнил

3 марта, 07:54

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

+4

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