Question

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

Answer 1

Pascal

Program If3;

Var

A:Integer;

Begin

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

ReadLn(A);

If A > 0 Then

WriteLn(A * 3)

Else

If A < 0 Then

WriteLn(A + 3)

Else

WriteLn(5);

End.