1. Информатика
  2. 1.Дано ціле число. Якщо воно

1.Дано ціле число. Якщо воно є додатнє, то додати до нього 1; в іншому випадку відняти від нього 2. Вивести отримане число.​

корги1 корги1    3   20.04.2021 18:56    0

Ответы
esya14 esya14  20.04.2021 19:00
var a: integer;
begin
write('Ввести ціле число ->');
readln(a);
if a>0 then a:=a+1
else a:=a-2;
writeln('Результат = ', a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Настя55251 Настя55251  01.03.2019 21:20
Turbo pascal человек ввел трехзначное число, при функций div и mod найти их сумму....
Franker10 Franker10  01.03.2019 21:20
1)текст занимает 5 полных страниц.на каждой странице размещается 30 строк по 70 символов в строке.какой объём оперативной памяти(в байтах)займёт этот текст? 2)скольско...
Ardashelovna Ardashelovna  01.03.2019 21:20
Текст занимает 0,25 кбайт памяти компьютера.сколько символов содержит этот текст?...
shedis2004 shedis2004  15.04.2020 20:52
Разветвляющийся алгоритм это 1) Алгоритм ,содержащий несколько действий 2)алгоритм,содержащий условие 3)алгоритм,повторяющийся несколько раз 3) алгоритм,повторяется несколько...
ролл10 ролл10  15.04.2020 20:54
Команда школи з шахів складається з трьох учнів. Вона потрапляє до фінальних змагань міста, якщо кожен учень у відбірних змаганнях набере не менше ніж 5 очок. Розробіть...
Ulia1090210 Ulia1090210  15.04.2020 20:53
Чему будет равна переменная sum после выполнения фрагмента программы: sum:=0; i:=7; Repeat Sum:=sum+10; i:=i+2 Until i 14;...
Саша7647 Саша7647  15.04.2020 20:54
1. В файле написаны числа. Вывести их на экран, отсортировав по количеству разных цифр в них 2. В файле написаны слова. Вывести их на экран, отсортировав по длине, и отсортировав...
Stiv191001 Stiv191001  19.02.2022 15:56
Нужно закрасить эти клетки снаружи, по действию нц пока (условие , у меня час....
Алексей000999 Алексей000999  19.02.2022 15:55
Если в одномерном массиве проверяется «похожесть» его первой и второй части, то в каких границах надо писать оператор for для «прохождения» по этому массиву?...
maruad1 maruad1  19.02.2022 15:54
Тест по информатике Чему равно произведение наибольшего и наименьшего натуральных значений x, для которых верно высказывание НЕ ( X 250 ) И ( X – четное)?...

Популярные вопросы