Pascal (Паскаль). Задача: Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
Pascal (Паскаль). Задача: Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
Код:
program Task_If1;
var
iNum: integer;
begin
WriteLn('Введите целое число: ');
Readln(iNum);
if iNum>0 then iNum:=iNum+1;
writeln(iNum);
WriteLn('Нажмите <Enter>, чтобы выйти.');
Readln();
end.
Задача Task_If1.