Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число. Код Pascal1 2 3 4 5 6 7 8 9 10 11 var N: integer; begin writeln('Ведите целое число:'); readln(N); if N > 0 then N := N + 1 { <== Увеличиваем на 1 } else N := N - 2; { <== Уменьшаем N на 2 } writeln('Результат: ', N); readln end.
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))
else Write(A*2)
End.
Код Pascal1 2 3 4 5 6 7 8 9 10 11 var N: integer; begin writeln('Ведите целое число:'); readln(N); if N > 0 then N := N + 1 { <== Увеличиваем на 1 } else N := N - 2; { <== Уменьшаем N на 2 } writeln('Результат: ', N); readln end.