Дано целое число если оно является положительным то прибавить к нему 1 в противном случае вычесть из него. Вывести полученное чило
Дано целое число если оно является положительным то прибавить к нему 1 в противном случае вычесть из него. Вывести полученное чило
Гость
Ответ(ы) на вопрос:
ГостьProgram prog;
uses crt;
var a: integer;
begin
clrscr;
Write('a = ');
readln(a);
if a>0 then
writeln(a+1)
else
writeln(a-1);
end.
Не нашли ответ?
Похожие вопросы