Var a,b,c,d:real; begin writeln ('Введите длины сторон первого прямоугольника'); read (a,b); writeln ('Введите длину одной стороны второго прямоугольника'); read (c); d:=(6*a*b)/c; //Из формулы s2/s1=6 ; c*d/a*b=6 writeln ('Длин другой стороны второго прямоугольника = ',d) end.
Program Zilly; uses crt; const n=10; var a,b,c:real; tup,pryam:integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); tup:=0; pryam:=0; writeln('Введите стороны треугольника'); write('А = '); readln(a); write('B = '); readln(b); write('C = '); readln(c); a:=a*a; b:=b*b; c:=c*c; if a=b+c then pryam:=1; if b=a+c then pryam:=1; if c=a+b then pryam:=1; if a>b+c then tup:=1; if b>a+c then tup:=1; if c>a+b then tup:=1; if tup=1 then writeln('Треугольник тупоугольный') else if pryam=1 then writeln('Треугольник прямоугольный') else writeln('Треугольник остроугольный'); end.