Пожаловаться
- 23.10.2017 05:34
- Информатика
- remove_red_eye 5382
- thumb_up 45
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
var
x: int64;
BeginReadln(x);
if (x <= -2)then
begin
Writeln('y = ', -1);
halt;
end;
if (-2 < x)and ( x <= 1) then
begin
Writeln('y = ', -1*x*x + 3);
halt;
end;
Writeln('y = ', x + 1);
end.
var
x: int64;
BeginReadln(x);
if (x <= -2)then
begin
Writeln('y = ', -1);
halt;
end;
if (-2 < x)and ( x <= 1) then
begin
Writeln('y = ', -1*x*x + 3);
halt;
end;
Writeln('y = ', x + 1);
end.
Пожаловаться
- 24.10.2017 23:20
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы