ДАЮ 95 БАЛЛОВ!Составьте решение задачки в паскале!Дано целое число. Если оно

ДАЮ 95 БАЛЛОВ!
Составьте решение задачки в паскале!
Дано целое число. Если оно положительное, то утроить его;
если отрицательное, то прибавить к нему 3;
если нулевое, то заменить его на 5.
Вывести приобретенное число

Задать свой вопрос
Ден Кодас
составьте конкретно программку
Анисифорова Эвелина
ну помогите пожалуйста
1 ответ

Pascal

Program If3;

Var

A:Integer;

Begin

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

ReadLn(A);

If A gt; 0 Then

WriteLn(A * 3)

Else

If A lt; 0 Then

WriteLn(A + 3)

Else

WriteLn(5);

End.

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


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

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

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

Войти на сайт