Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Составте программу решающую следующую задачу дано число н если оно неотрицательно то возвести его в квадрат а если отрицательно то в третью степень

Ответ оставил Гость

Program pr;
uses crt;
var n, r : integer;
begin
clrscr;
writeln(Enter n:);
readln(n);
if n>0 then
begin
r:=n*n;
end
else
begin
r:=n*n*n;
end;
writeln(Result=,r);
readln;
end.