Задание 3
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
y := 3 / (x - 5);
WriteLn ('y = ' + FloatToStr (y));
end.
// ----------------------------------------------
Задание 4
var
y, x: Real;
begin
Write ('Введите x: ');
ReadLn (x);
if x < -1 then
y := 2 * x + 4
else if x > 3 then
Sqrt (x + 7)
else
y := 3 * x * x - x + 1;
WriteLn ('y = ' + FloatToStr (y));
end.
Программа на Паскале:
Program BiFi;
Var R,a:real;
Begin
readln(R,a);
if a<=(R*sqrt(2)) then writeln('Yes');
else writeln('NO');
readln;
end.
Правильный ответ 15, то есть под номером 2