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

Question

Кирик

12 января, 20:03

+4

Ответы (1)

Знаете ответ на вопрос?

Евлампия · Answer 1

Var n:integer;

begin

readln (n) ;

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

else writeln (n) ;

end.