Введите число, если оно не отрицательно, вычесть из него 10. В противном случае прибавить к числу 10.

Question

Вилена

23 августа, 19:32

+3

Ответы (1)

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

Сергейка · Answer 1

Var x: integer;

begin

write ('Введите число: ') ;

readln (x) ;

if x > 0 then writeln (x - 10)

else writeln (x + 10) ;

end.