как сделать (в packal abc) - task('if3')! хоть всё!

ддддд20 ддддд20    3   13.09.2019 19:30    1

Ответы
nyutasova nyutasova  07.10.2020 12:31
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
ПОКАЗАТЬ ОТВЕТЫ
Infasotka41 Infasotka41  07.10.2020 12:31
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика