Составьте метод (из схем) возведения чётного числа в квадрат, а нечётного

Составьте алгоритм (из схем) возведения чётного числа в квадрат, а нечётного - в куб.

Задать свой вопрос
1 ответ

var

 x: Integer;

begin

   Write ('Введите целое число: ');

   Readln (x);

   if x mod 2 = 0 then

     WriteLn ('Четное число в квадрате = ' + IntToStr (x * x))

   else

     WriteLn ('Нечетное число в кубе = ' + IntToStr (x * x * x));

end;

Полина Амандополова
Спасибо для вас огромное! Но только сможете написать на российском!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт