Меню сайта

Задача №3

Дано целое число. Если оно является положительным, то прибавить к нему 1- если отрицательное — — вычесть из него 2, если является нулевым – заменить на 10. Вывести полученное число.


Program if_3-

Var a:integer-

Begin

Writeln(‘Введите число’)-

Readln(a)-

If a&gt-0 then a:=a+1 else

If a&lt-0 then a:=a-2 else a:=10-

Writeln(‘Полученное число ‘,a)-

Readln-

End.

Категория: Разветвляющиеся программы | Дата: 04.01.13

Меню раздела
Блок