• Предмет: Информатика
  • Автор: nikitaefimov19
  • Вопрос задан 1 год назад

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


boggi725: И что с этим сделать? Написать программу?
вопрососоздователь: var
i:integer;
begin
writeln('введите число');
readln(i);
if (i>=0) then
i:=i+1
else
i:=i;
writeln (i);
end.

Ответы

Ответ дал: вопрососоздователь
0
var i:integer;beginwriteln('введите число');readln(i);if (i>=0) theni:=i+1elsei:=i;writeln (i);end.
Похожие вопросы