Напишите программу нахождения суммы большего и меньшего из трех чисел
Напишите программу нахождения суммы большего и меньшего из трех чисел
Гость
Ответ(ы) на вопрос:
ГостьVar
A,B,C,M:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
M:=A;
if MB then A:=B;
if A>C then A:=C;
Write(A,' + ',M,' = ',A+M)
End.
Не нашли ответ?
Похожие вопросы