Дано целое число. если оно чётное, то уменьшить его в 2 раза, иначе возвести в куб
esergee2012
3
12.08.2019 22:50
0
Другие вопросы по теме Информатика
Jakai2808
21.04.2020 06:51
ник4430
23.02.2021 22:41
Dobriyboy
23.02.2021 22:42
Angelochek02
23.02.2021 22:42
марина1929
06.02.2021 21:24
рома1344
06.02.2021 21:23
Giga45
06.02.2021 21:21
tasyasoloveva24
06.02.2021 21:20
КатюшаМелихова
06.02.2021 21:06
Популярные вопросы
- Какие из ниже перечисленных животных используют в своей жизни...
1 - Найди значения выражения 212 •a,если a равно 2; 3; 4....
2 - Проверьте на грамотность эти предложения,если есть ошибки -...
2 - Суравнениями ! 1) 4^x - 0,25^(x-2) -15 =0 2) 2^x + 3*2^(2-x)...
1 - Морфологический разбор слова чем у нас на...
2 - Укажи правильний розбір дієслова кам*яніє: а) кам*яніють, тепер.час.,...
1 - Используйте в скобках слова, чтобы преобразовать два предложения...
2 - Сколько кубиков в 3 одинаковых коробках, если в 1 два десятка?...
1 - Япомню своё детство с трёх лет. к пяти я уже научилась считать...
3 - Сколько воздуха понадобится для сжигания 4 тонн угля решить...
1
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.