СРОЧНО!СРОЧНО!СРОЧНО! дано целое число если оно отрицательное, то возвести его в ?
СРОЧНО!СРОЧНО!СРОЧНО!
дано целое число если оно отрицательное, то возвести его в ??вадрат; есди положительное или равное нулю, то найти его куб
Гость
Ответ(ы) на вопрос:
Гость Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then a:=sqr(a) else a:=sqr(a)*a;
writeln(a);
end.
Не нашли ответ?
Похожие вопросы