Составьте программу для решение следующей . введите с клавиатуры три числа. если все числа отрицательны и не равны между собой, то замените числа их квадратами, иначе найдите и выведите сумму этих чисел. выведите результаты на экран. хелп, паскаль
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.
Помню был такой файловый менеджер для DOS - Norton Commander (в просторечии Нортон). Основные функции — копирование, удаление и переименование файлов, а также запуск исполняемых файлов DOS.
Еще был текстовый редактор для DOS - Лексикон. чем-то похож на нынешний Блокнот, также под каждый символ строго определенное место, никаких сдвигов-сжатий-расширений пробелов.
Были среды программирования под DOS, например Бейсик (Basic), Паскаль (Pascal) и другие
Даже была графическая рисовалка, вот только не помню, как называлась.
Внимание! Если программа не работает, обновите версию!
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.