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

Question

Антося

16 ноября, 12:35

+1

Ответы (1)

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

Мелетий · Answer 1

Program название;

var

n:integer;

begin

readln (n) ;

if n<0 then

n: = n-10

else

n:=n+10;

writeln (n) ;

end.