Ответ(ы) на вопрос:
Гость Var a,b,c: real;
Begin
Writeln ('введите a,b,c');
Readln (a,b,c);
If a+b=c then writeln (a,' + ',b,' = ', c) else
If a+c=b then writeln (a,' + ',c,' = ',b) else
If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа');
End.
Не нашли ответ?
Похожие вопросы