mgolubev13
26.08.2020 21:40

Дано целое число. если оно является положительным, то прибавить к нему 1; иначе, если отрицательным, то вычесть из него 2, иначе заменить его на 10. составить блок-схему и программу паскаль абс

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
fjfckfk
08.10.2020 05:22
Var  a: integer;

begin 
readln(a); 
 if a >= 0 then    
 if a = 0 then a := 10    
else Inc(a)   
else a -= 2; 
write(a);
end.

Дано целое число. если оно является положительным, то прибавить к нему 1; иначе, если отрицательным,
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота