Напишите программу для паскаля. возвести чётное число в квадрат, а нечётное в куб.
Mrrezed
3
23.08.2019 05:40
5
Другие вопросы по теме Информатика
Lissabone
12.09.2019 01:30
Кашмамининагений
21.06.2019 06:40
4elo100
21.06.2019 06:40
dlyaigrmoih1
16.12.2021 18:03
vmartynova77
16.12.2021 18:01
N30032004
29.06.2019 18:00
hilton1
04.03.2021 10:27
Maika01
04.03.2021 10:27
srochno6
04.03.2021 10:27
Популярные вопросы
- 3.Укажіть формулу основного оксиду: А) FeО Б) V2О5 В) Сl2О7 Г) N2О...
3 - Мож-но ли говорить об особенностях общественных отношений у славян посравнению...
2 - Установите соответствие в поэтапной физической картине эволюции вещества...
3 - Выработать положения, защищающие гражданское население...
1 - Почему во время пробивания отверстия шлямбуром его нужно поворачивать...
2 - Закінчіть речення за до фразеологізмів, поданих у довідці. Місто він своє...
1 - Знайдіть координати точки,у яку переходить центр кола (x-1)²+(y-2)²=4...
1 - В цьому творі порушена проблема залежності й трагічної долі жінки в суспільстві...
3 - 1 Какая из реакций, схемы которых приведены ниже, является окислительно-восстановительной:...
3 - Кощій Безсмертний, лисий і кістлявий, після довгих залицянь домігся руки...
3
x,rez:integer;
begin
readln(x);
if x mod 2 = 0 then
rez:=x*x
else
rez:=x*x*x;
writeln (x);
end.