составте программу решающую следующую задачу дано число н если оно неотрицательно то возвести его в квадрат а если отрицательно то в третью степень
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
5 лет назад
7 лет назад