Ввести число не равное нулю. возвести во вторую степень отрицательное число, а в третью степень положительное число. на я зыке паскаль,
help1010100101020349
1
22.08.2019 04:10
1
Другие вопросы по теме Информатика
89280704228
10.01.2020 16:34
Anakina1
10.01.2020 20:24
snegovayasnejaovrg7j
10.01.2020 20:22
AnnaVorob1999
10.01.2020 19:58
kuanyshbek2003
21.09.2019 09:20
ILiveYou
21.09.2019 09:20
Kik1924
21.09.2019 09:20
alihanova1
21.09.2019 09:20
Популярные вопросы
- Составить формулы двух изомеров и одного гомолога для ch3-ch=ch-ch3...
2 - На какой часовой пояс приходится город расположенный 160 градусов восточной...
3 - Вставьте слово. the teacher the boy to stand up. a) said b) told c) spoke...
3 - Сочинить диалог по вы и ваш брат/сестра хотите купить подарок для родителей...
1 - Сочинение на тему евгений онегин мой любимый герой ! ? от руки не с интернета...
1 - Почему древние египтяне называли библиотеку аптека души нужно к !...
1 - Звуки этого слова вы узнаете, взяв последний зв. от слова зверь, 2 звук от...
1 - Вприродный газ добавляют дурно пахнущие вещества - одоронты. для чего...
3 - Составить предложения: описание,рассуждения, повествования...
1 - Задан массив состоящий из 10 элементов, подсчитать сколько раз встречается...
3
var n: integer;
begin
readln(n);
if n<>0 then
begin
if n<0 then writeln(n*n) else writeln(n*n*n);
end;
end.