Дано целое число, если оно положительное, то возвести его в квадрате, иначе возвести в третью степень. Напишите программу пжлст)
Ответы на вопрос
Ответил saypl
0
на паскале
var a: integer;
begin
write('Введите целое число'); Readln(a);
if a>=0 then write(a*a) else write(a*a*a);
end.
var a: integer;
begin
write('Введите целое число'); Readln(a);
if a>=0 then write(a*a) else write(a*a*a);
end.
Новые вопросы