НА ЯЗЫКЕ ПАСКАЛЯ
1Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
2Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
1Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
2Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
More Questions From This User See All
Answers & Comments
Program prim1;
Var x:integer;
Begin
x:= какое число или присваивания оператором readln(x)
if x>0 then x+1
writeln ('Полученное число :,x');
end.
Вроде так