2. Даны три целых числа. Возвести в квадрат отрицательные числа и в

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

Задать свой вопрос
1 ответ
Var a, b, c: integer;
function zd(a:integer): integer;
begin
if a=0 then
zd:=0
else
if agt;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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт