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

1

Ответы и объяснения

2013-03-19T09:17:46+00:00

program ex1;

var x:integer;

begin

read(x);

if x>0 then x:=x+1 ;

writeln(x);

end.