If1. Дано целое число. Если оно является положительным, то вычесть из него 8; в противном случае не изменять его. Вывести полученное число.



Елена в категроии Информатика, вопрос открыт 17.03.2018 в 09:15

1 ответ



Валентина , ответ добавлен 17.03.2018 в 09:27

Var n:integer;

begin
readln(n);
if n>0 then begin n-=8; writeln(n);end
else writeln(n);
end.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.