profile


Опубликовано 5 лет назад по предмету Информатика от aigamiMAks

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

  1. Ответ
    Ответ дан XletstraikcX

    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.


Другие вопросы