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);
a×b÷2=s
вот формулы
а-длина
b-широта
s-площадь
p-периметр