Вопрос по информатике:
*Дано* *целое* *число*. *Если* *оно* *является* *положительным*, *то* *прибавить* *к* *"нему* *1*;если отрицательным, *то* вычесть из *него*
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.07.2015 13:06
- Информатика
- remove_red_eye 2083
- thumb_up 31
Ответы и объяснения 2
Var n : integer;
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.
- 18.07.2015 02:13
- thumb_up 43
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.
- 19.07.2015 13:21
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.