Задание:
Даны 3 действительных числа, возвести в куб те из них значения которые отрицательны. Написать программу (впаскале).
Решение:
Program chisla; var a, b, c: real; beginwriteln ('Введите 1 число'); readln (a); writeln ('Введите 2 число'); readln (b); writeln ('Введите 3 число'); readln (c); if a<0 then a: =a*a*a; if b<0 then b: =b*b*b; if c<0 then c: =c*c*c; writeln (a); writeln (b); writeln (c); end. Это так, просто расписывая оО
Знаете другой ответ?