Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 3; если нулевым, то заменить его на 17. Протестируйте программу для числе 25, -31 и 0.
PoJalyusta
3
17.02.2021 17:29
3
Другие вопросы по теме Информатика
fjfckfk
14.05.2020 10:21
хорошист536
14.05.2020 10:22
margo344
01.10.2019 05:10
елазевета
01.10.2019 05:10
annaaristova
22.04.2020 19:53
TopovayaKisa69
22.04.2020 19:53
svetik3333
22.04.2020 19:53
a01065699799
27.05.2020 18:46
Мила3287
27.05.2020 18:56
Популярные вопросы
- Как приготовить 150г с 2 %раствора сахара...
3 - А3) укажите пример с ошибкой в образовании формы слова 1) надёжнее...
3 - Доклад по теме положение хмао-югры надо...
1 - Катер плыл 3 часа по течению реки и 4 часа против течения какое...
3 - Употребите нужную форму инфинитива. 1 the children ) since morning....
3 - Установи последовательность событий: проставь номера. разгром...
1 - Какие слова имеют окончание о? окно кино пальто быстро перо...
3 - No2-hno3-cu(no3)2-cuo-cu(no3)2-cu3(po4)2...
2 - 5. составьте предложения со звукоподражательными словами: кря-кря-кря,...
2 - Найти значения выражения двумя м2 62 см2 + 9 м2 108 см2, 8 м3...
2
var a: integer;
begin
readln(a);
if (a>0) then
a:=a+1
else
if (a<0) then
a:=a-3
else
if (a=0) then
a:=17;
writeln(a);
end.