0 интересует 0 не интересует
36 видели

Даны 3 действительных числа, возвести в куб те из них значения которые отрицательны. Написать программу (в паскале).

от Начинающий (121 баллов) в разделе Информатика

1 Решение или Ответ

0 интересует 0 не интересует
от Одаренный (1.4k баллов)

Program chisla;

var a, b, c: real;

begin

writeln ('Введите 1  число');

readln (a); 

writeln ('Введите 2 число');

readln (b); 

writeln ('Введите 3 число');

readln (c);

if a<0 then a:=a*a*a ;</p>

 if b<0 then b:=b*b*b ;</p>

 if c<0 then c:=c*c*c  ;</p>

writeln (a);

writeln (b);

writeln (c);

end.

Это так, просто расписывая оО 

 

 

...