решить, запись нужна на C++.
Ответы
ответ: Pascal последняя версия, задача только на хз почему 1 неправильно
program C1;
var
N, x: int64;
begin
read(x);
read(N);
if (N > 0) and (N <= abs(x)) then
x := x + n
else if (N > 0) and (N >= abs(x)) then
x := x + n + 1;
if (N < 0) and (abs(N) <= abs(x)) then
x := x - abs(N)
else
if (N < 0) and (abs(N) >= abs(x)) then
x := x - abs(N) - 1;
if x <> 0 then
writeln(x)
else begin
if N > x then
x := x +1
else
x := x -1;
writeln(x);
end;
end.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
с информатикой, очень надо
Автор: homeo85
Теория вероятости, 7 класс решить 1 и 2 номер
Автор: Budanov317
Операционные среды операционных систем подготовить сообщение
Автор: Анна1169
как правильно составить вектор на Паскале, чтобы получился подобный график?
Автор: andreykrutenko
Dvd диск объем , которого 4, 2 гб.на диске 5123 фотографии, определить объем 1 фотографии. заранее !
Автор: ivanandrieiev1984268
Что такое интернет зависемость
Автор: gorbunova188
Можете по 2 пример для каждого вида представления информации
Автор: Mariya Filippov
Тест задание отметь картинку на которой векторные изображения
Автор: Maksimova-Shorokhov303
ответ: Pascal последняя версия, задача только на хз почему 1 неправильно
program C1;
var
N, x: int64;
begin
read(x);
read(N);
if (N > 0) and (N <= abs(x)) then
x := x + n
else if (N > 0) and (N >= abs(x)) then
x := x + n + 1;
if (N < 0) and (abs(N) <= abs(x)) then
x := x - abs(N)
else
if (N < 0) and (abs(N) >= abs(x)) then
x := x - abs(N) - 1;
if x <> 0 then
writeln(x)
else begin
if N > x then
x := x +1
else
x := x -1;
writeln(x);
end;
end.
Объяснение: