*дано* *целое* *число*. *если* *оно* *является* *положительным*, *то* *прибавить* *к* *""нему* *1*; если отрицательным, *то* вычесть из *него* 2; если нулевым, *то* ""заменить *его* на 10. вывести полученное *число*.
Reginmdms
1
21.05.2019 12:10
0
Другие вопросы по теме Информатика
Лучік12
06.03.2022 12:36
chornaya03
24.06.2019 00:49
Elnarikys
24.06.2019 00:52
Celebrat
24.06.2019 02:40
Dianochkach
24.06.2019 02:40
Fusdy
24.06.2019 02:40
dimaolegon96
06.05.2020 07:45
2006marusya
04.12.2021 13:24
Популярные вопросы
- Спектр шума : 1прерывистый 2непостоянный 3импульсивный 4широкополосный...
2 - Выберите правильный вариант ответа fill in the blanks. a) do b) does...
1 - Рассмотрите рисунок и дайте ему название.установите соответствие между...
2 - Отрезки ab и cd пересекаются в середине o отрезка ab, ∠oad=∠obc. найдите...
2 - При переходе через ручей у меня чавкнул сапог и оттого с осины над...
2 - Сочинение или эссе на тему исчезнувшее трение или мир без трения...
2 - Или мне капут повесит и помидорами в меня кидать будет . больше нет...
3 - 1. какие проблемы взаимодействия человека являются главными и почему?...
3 - (1) потемнело, нахмурилось небо. (2) набежали мрачные тучи. (3)затих...
2 - Врастворе массой 100г содержится хлорид бария массой 20г.какова массовая...
2
begin
read(n);
if n = 0 then
write('10') else
if n > 0 then
write(n+1) else
if n < 0 then
write(n-2);
end.
program sa;
uses crt;
var x:integer;
begin
clrscr;
readln(x);
if x>0 then x:=x+1;
if x<0 then x:=x-2;
if x=0 then x:=10;
writeln(x);
readln;
end.