Предмет: Информатика,
автор: GodFox
Прошу помочь, как сделать (в Packal ABC) задание - Task('if3')! Отдам хоть всё!
Ответы
Автор ответа:
0
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.
Автор ответа:
0
Надеюсь это задание я сделал
Автор ответа:
0
Это нето(((
Автор ответа:
0
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
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
Интересные вопросы
Предмет: Русский язык,
автор: varyajsksksak
Предмет: Математика,
автор: sevastianovaa3
Предмет: Другие предметы,
автор: vumbuk
Предмет: Математика,
автор: литания