Меню сайта

Задача №2

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

Program if_2-

Var a:integer-

Begin

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

Readln(a)-

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

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

Readln-

End.

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

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