Дано целое число. если оно чётное, то уменьшить его в 2 раза, иначе возвести в куб
Нет комментариев
Ответы
Гость vara: integer;
b: real;
beginwriteln ('введи целое число');read (a);
if a mod 2=0 then b:=a/2elseb:=a*a*a;writeln ('результат',b);end.
Нет комментариев
Похожие вопросы
Информатика
0,00390625Гб=_Кбайт=_Мбайт...
Информатика
Пожалуйста помогите решить...
Информатика
Что такое числа Фибоначчи...
Список предметов
