• Вопрос по информатике:

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

    • Автор:

      sarge
  • 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.

    • Отвечал:

      dereontusp
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска