ПРОГРАММИРОВАНИЕ PascalABC Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.
bataev2007
2
27.01.2021 19:02
3
Другие вопросы по теме Информатика
karahenov98Алекс
19.09.2019 14:30
киса5558
19.09.2019 14:30
Loikov1
11.06.2019 13:30
Nasta11111112356
11.06.2019 13:30
RUMBANITTA
11.06.2019 13:30
finicot
18.06.2019 14:40
Ivan1128
18.06.2019 14:40
Пупс2014
24.05.2020 13:10
Популярные вопросы
- На рисунке 69 найдите органы мочевыделительной системы и проследите...
1 - Петрик з їв горіхів у 2 рази менше за миколку і на 2 більше за валю....
2 - Нужно составить 15 словосочетаний с пропуском орфаграмм в прилагательных...
2 - Она тщательно моет посуду чтобы не оставалось не грязи не моющего...
2 - Хорда длиной 3√(2+√2) см. стягивает дугу градусная мера которой...
2 - Найдите наибольший общий делитель чисел p и q если p =2*3*5*5*7*7*110...
3 - 9х2-4=0 решить квадратное уравнение с формулы корней квадратных...
3 - Точки отмеченные на каждой окружности делят её на шесть равных частей...
1 - Несколько груш разложили 5 ваз по 3 груши в каждую сколько груш...
1 - Установите соответствия : 1)иван .борьба с василием косым, дмитрием...
2
var
a: integer;
begin
writeln('Введите целое число:');
readln(a);
if a < 0 then
writeln(a, '^2 = ', sqr(a));
if a > 0 then
writeln(a, '^3 = ', sqr(a) * a);
if a = 0 then
writeln('Равно нулю.');
end.