напишите пожалуйста программку на языке паскаля по этой задачке: ввести число

Напишите пожалуйста программку на языке паскаля по этой задачке: ввести число если оно четное положительное поделить его на 4, если оно отрицательное четное помножить его на 5, если не четное возвести в квадрат.

Задать свой вопрос
1 ответ
Var n:real;a:integer;beginreadln(a);n:=a;if (a mod 2=0) and (agt;0) then n:=a/4;if (a mod 2=0) and (alt;0) then n:=a*5;if (a mod 2=1) then n:=a*a;writeln(n);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт