Составьте программу для решение следующей . введите с клавиатуры три числа. если все числа отрицательны и не равны между собой, то замените числа их квадратами, иначе найдите и выведите сумму этих чисел. выведите результаты на экран. хелп, паскаль

220

439

Посмотреть ответы 2

Ответы на вопрос:

Chekchik

Информатика

4,8(6 оценок)

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b,c): =readreal3; if (a< > b) and (a< 0) and (b< 0) and (c< 0) then begin (a,b,c): =(a*a,b*b,c*c); println(a,b,c) end else writeln('сумма равна ',a+b+c) end.