Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
A,B,C,M:real;
Begin
Write(A = );ReadLn(A);
Write(B = );ReadLn(B);
Write(C = );ReadLn(C);
M:=A;
if Mif Mif A>B then A:=B;
if A>C then A:=C;
Write(A, + ,M, = ,A+M)
End.

Оцени ответ