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