2. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень - положительные (число 0 не изменять).

Question

Информатика

Евдокуша

17 января, 10:53

2. Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень - положительные (число 0 не изменять).

+5

Ответы (1)

Знаете ответ?

Видина · Answer 1

Var a, b, c: integer;

function zd (a:integer) : integer;

begin

if a=0 then

zd:=0

else

if a>0 then zd:=sqr (a) else zd:=a*a*a;

end;

begin

read (a, b, c) ;

write (zd (a), ' ') ;

write (zd (b), ' ') ;

write (zd (c), ' ') ;

end.