Даны три числа. Составьте программу, которая вычисляет кубическую степень отрицательных среди этих чисел

Question

Информатика

Адам

13 декабря, 19:56

Даны три числа. Составьте программу, которая вычисляет кубическую степень отрицательных среди этих чисел

+4

Ответы (1)

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

Христя · Answer 1

Var

a:array [1 ... 3] of integer;

i:integer;

begin

for i:=1 to 3 do read (a[i]) ;

for i:=1 to 3 do

if a[i]<0 then write (a[i]*a[i]*a[i],' ') ;

end.