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

Question

Святослав

21 марта, 16:13

+5

Ответы (2)

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

Зина · Answer 1

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.

Корнелия · Answer 2

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