ДАЮ 95 БАЛЛОВ! Составьте решение задачи в паскале! Дано целое ...
ДАЮ 95 БАЛЛОВ! Составьте решение задачи в паскале! Дано целое число. Если оно положительное, то утроить его; если отрицательное, то прибавить к нему 3; если нулевое, то заменить его на 5. Вывести полученное число
Есть ответ
12.12.2022
99
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
