Дано целое число.Если оно является положительным, то прибавить к нему 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.
Новые вопросы
Английский язык,
2 года назад
Українська література,
2 года назад
Русский язык,
2 года назад
Русский язык,
2 года назад
Обществознание,
7 лет назад