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