ПОМОГИТЕ ПРОШУ ,ОДИН НОМЕР НЕ МОГУ РЕШИТЬ Написать программу для решения задачи. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число
ПОМОГИТЕ ПРОШУ ,ОДИН НОМЕР НЕ МОГУ РЕШИТЬ
Написать программу для решения задачи.
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
Begin
Readln(a);
If a>0 then
a:=a+1;
If a<0 then
a:=a+0;
Writeln(a);
End.
ГостьIf a>0 then
a:=a+1
Else write a
Не нашли ответ?
Похожие вопросы