Меню сайта

Задача №1

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


Program if_1-

Var a:integer-

Begin

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

Readln(a)-

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

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

Readln-

End.

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

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