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

kirill1s kirill1s    3   25.10.2019 21:12    8

Ответы
KopolbEnufaHtuy KopolbEnufaHtuy  10.10.2020 09:42

var a,b,c: real;

begin

readln(a,b,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;

write(a,' ',b,' ',c);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика