var
x: real;
begin
readln(x);
if x < 2 then write(x * x + 4 * x + 5);
if x = 2 then write(1 / (x * x + 4 * x + 5));
if x > 2 then write(1);
end.
var x: real;
y:integer;
read(x);
if x < 2 then y:= sqr(x) + 4 * x + 5
else if x = 2 then y:= 1 / (sqr(x) + 4 * x + 5)
else if x > 2 then y:=1;
Writeln(y);
Если мой ответ вам помог, пожалуйста, выберете его лучшим :) Заранее спасибо
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var
x: real;
begin
readln(x);
if x < 2 then write(x * x + 4 * x + 5);
if x = 2 then write(1 / (x * x + 4 * x + 5));
if x > 2 then write(1);
end.
Verified answer
var x: real;
y:integer;
begin
read(x);
if x < 2 then y:= sqr(x) + 4 * x + 5
else if x = 2 then y:= 1 / (sqr(x) + 4 * x + 5)
else if x > 2 then y:=1;
Writeln(y);
end.
Если мой ответ вам помог, пожалуйста, выберете его лучшим :) Заранее спасибо