1) program average; var i: integer; answer, S, tmp: real; begin for i := 1 to 5 do begin readln(tmp); S := S + tmp end; answer := S / 5; writeln(answer) end. 2) program equation; var A, B, C, D, x1, x2: real; begin writeln('ввеедите коэфициенты квадратного многочлена'); readln(A); readln(B); readln(C); if A <> 0 then begin D := B*B - 4*A*C; if D < 0 then writeln('действительных корней нет') else if D = 0 then begin x1 := -B/(2*A); writeln('Единственный корень: ',x1) end else begin x1 := (-B + sqrt(D)) / (2*a); x2 := (-B - sqrt(D)) / (2*a); writeln('Два корня: ',x1,', ',x2) end; end else writeln('старший коэфициент не может равняться 0') end.
Writeln('Write x1,x2,x3 : '); Readln(x1,x2,x3); if x1>4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-1))):10:20); if x1>=0 then if x1<=4 then writeln(-2*x1:10:20); if x1<0 then writeln(Exp(cos(x1)):10:20);
if x2>4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-1))):10:20); if x2>=0 then if x2<=4 then writeln(-2*x2:10:20); if x2<0 then writeln(Exp(cos(x2)):10:20);
if x3>4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-1))):10:20); if x3>=0 then if x1<=4 then writeln(-2*x3:10:20); if x3<0 then writeln(Exp(cos(x3)):10:20);
program average;
var
i: integer;
answer, S, tmp: real;
begin
for i := 1 to 5 do
begin
readln(tmp);
S := S + tmp
end;
answer := S / 5;
writeln(answer)
end.
2)
program equation;
var
A, B, C, D, x1, x2: real;
begin
writeln('ввеедите коэфициенты квадратного многочлена');
readln(A);
readln(B);
readln(C);
if A <> 0 then
begin
D := B*B - 4*A*C;
if D < 0 then
writeln('действительных корней нет')
else if D = 0 then
begin
x1 := -B/(2*A);
writeln('Единственный корень: ',x1)
end else
begin
x1 := (-B + sqrt(D)) / (2*a);
x2 := (-B - sqrt(D)) / (2*a);
writeln('Два корня: ',x1,', ',x2)
end;
end
else writeln('старший коэфициент не может равняться 0')
end.