Прошу помочь, как сделать (в Packal ABC) задание - Task ('if3') ! Отдам хоть всё!

Question

Зара

8 июня, 04:40

+3

Ответы (2)

Знаете ответ?

Феодула · Answer 1

Var n:integer;

begin

readln (n) ;

if n > 0 then n:=n-8

else if n < 0 then n:=n+6

else n:=10;

writeln (n) ;

end.

Пример:

-5

1

Гошуня · Answer 2

Var n:integer; begin readln (n) ; if n > 0 then write (n-8) ; if n < 0 then write (n+6) ; if n = 0 then write (10) ; end.