Задача 1:
ответ: y = 0.961
var x,y: real;
begin
x:=2;
y:=(sqrt(abs(PI/180+x*sin(3*x/(tan(abs(cos(x*x;
writeln('y = ',y:0:3);
end.
Задача 2.а:
ответ: res = 0.083
var A,B,C: real;
begin
A:=5;
B:=1;
C:=3;
writeln('res = ',(1/(A+B)-(C-B)/((A+B)*(A-B))):0:3);
end.
Задача 2.б:
ответ: res = 9.667
var A,B,C: real;
begin
A:=5;
B:=1;
C:=3;
writeln('res = ',(A/C+B*(C+A+B)-power(B,A)):0:3);
end.
Задача 3.а:
ответ: res = 2.029
begin
writeln('res = ',((50.862)/(0.207+2.08*(3.684+8.27))):0:3);
end.
Задача 3.б:
ответ: res = 7.269
begin
writeln('res = ',((21.3)/(0.87-2.1*(2.037-3.018))):0:3);
end.
Объяснение:
var a,b,s,o:integer;
begin
o := 0;
writeln('введите количество секунд');
readln(a);
writeln('1.муж 2.жен');
readln(b);
s:=0;
if b = 1 then
begin
if (a <= 400) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 500) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 2;
s := s+1;
end;
end
else
begin
if (a <= 500) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 800) and (s=0) then
begin
o := 2;
s := s+1;
end;
end;
writeln('оценка: ',o)
end.
