Дано целое число.Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его . Вывести полученное число.
boggi725:
И что с этим сделать? Написать программу?
var
i:integer;
begin
writeln('введите число');
readln(i);
if (i>=0) then
i:=i+1
else
i:=i;
writeln (i);
end.
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад