If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 |
program If3; var N : Integer; begin Write('Введите целое число: '); Readln(N); if N>0 then N:=n+1; if N<0 then N:=n-2; if N=0 then N:=10; writeln(N); end. |
Другие задачи из раздела If можно посмотреть здесь.
Комментарии: