** ЯЗЫКЕ ПАСКАЛЯ 1Дано целое число. Если оно является положительным, то прибавить к нему...

Question

НА ЯЗЫКЕ ПАСКАЛЯ
1Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
2Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

Comments

у помогите уже

Answer 1

1.       
 Program prim1;
Var x:integer;
Begin
x:= какое число или присваивания оператором readln(x)
if x>0 then x+1
writeln ('Полученное число  :,x');
end.
Вроде так

Comments

2.