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

Question

Информатика

Трофим

5 октября, 00:06

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

+4

Ответы (1)

Знаете ответ на вопрос?

Леонтия · Answer 1

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;

if b<0 then b:=b*b*b;

if c<0 then c:=c*c*c;

writeln (a) ;

writeln (b) ;

writeln (c) ;

end.

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