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