Написать программу если число чётное то делим на 2 . Если

Написать программку если число чётное то делим на 2 . Если ничтое то возводим В квадрат

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

var a: integer;

begin

readln(a);

if a mod 2=0 then writeln (a/2)

else writeln (sqr(a));

end.

Программка представлена на языке Pascal.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт