Пожаловаться
- 11.03.2018 07:55
- Информатика
- remove_red_eye 4723
- thumb_up 46
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var x:= ReadReal('x =');
if (x > 3) and (x < 4) then Writeln('y = ', 6*x*x - sqrt(x*x));
if (x < 3) and (x 0) then Writeln('y = ',sqrt(8*x*x-4*x)+exp(x));
if (x = 0)then Writeln('y = ',0.5*x*x - 4*x );
if (x >= 4) then Writeln('No Solution');
end.
// Внимание! Если программа не работает, обновите версию!
Begin
var x:= ReadReal('x =');
if (x > 3) and (x < 4) then Writeln('y = ', 6*x*x - sqrt(x*x));
if (x < 3) and (x 0) then Writeln('y = ',sqrt(8*x*x-4*x)+exp(x));
if (x = 0)then Writeln('y = ',0.5*x*x - 4*x );
if (x >= 4) then Writeln('No Solution');
end.
Пожаловаться
- 12.03.2018 09:12
- thumb_up 16
Var x: integer;
begin
readln (x);
if (x> 3) or (x <4) then write ((6 * x * x) -x);
if (x 0) then write (sqrt (8 * x * x-4 * x) + exp (x));
if (x = 0) then write (x * x / 2-4x);
end.
begin
readln (x);
if (x> 3) or (x <4) then write ((6 * x * x) -x);
if (x 0) then write (sqrt (8 * x * x-4 * x) + exp (x));
if (x = 0) then write (x * x / 2-4x);
end.
Пожаловаться
- 13.03.2018 02:32
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы