1.
var
x,y:integer;
begin
write('Введите значение x=');read(x);
if x<=10 then<br>write('Y=',-5*sqr(x))
else
write('Y=',sin(x-1):5:2);
end.
2.
var
a,b:real;
begin
write('Введите стаж работы=');read(a);
write('Введите возраст рабочего=');read(b);
if (a>=20) and (b>=42) then
write('Работник будет принят')
else
write('Работник не будет принят');
end.
3.
var
x,y,r:integer;
begin
write('Введите значение x=');read(x);
write('Введите значение y=');read(y);
write('Введите значение R=');read(r);
if (sqr(x)+sqr(y))=sqr(r) then
writeln('Точка лежит на окружности')
else
writeln('Точка не лежит на окружности');
end.
4.
var
x,y,a,b:real;
begin
write('Введите значение x=');read(x);
write('Введите значение a=');read(a);
write('Введите значение b=');read(b);
y:=5*sqr(x)-7*x+2;
if (a=y) and (b=y) then
writeln('Точка проходит')
else
writeln('Точка не проходит');
end.
5.
var
x:integer;
begin
write('Введите температуру=');read(x);
if x>60 then
writeln('Пожароопасная ситуация')
else
writeln('Не пожароопасная ситуация');
end.