Напишите программу pascal в циклическом алгоритме. : определить,являются ли подобными 2 треугольника,если известны длины всех 3-х сторон каждого треугольника.

108

386

Посмотреть ответы 2

Ответы на вопрос:

egorka22a

Информатика

4,4(13 оценок)

Var a: array[1..2,1..3] of integer; i,i1,i2,k: integer; z: real; begin writeln('vvedite storoni treugolnikov'); for i1: =1 to 2 do for i2: =1 to 3 do read(a[i1,i2]); for i1: =1 to 3 do for i2: =1 to 3 do begin if a[1,i1]> a[1,i2] then begin k: =a[1,i2]; a[1,i2]: =a[1,i1]; a[1,i1]: =k; end; if a[2,i1]> a[2,i2] then begin k: =a[2,i2]; a[2,i2]: =a[2,i1]; a[2,i1]: =k; end; end; z: =a[1,1]/a[2,1]; for i2: =1 to 3 do if a[1,i2]/a[2,i2]=z then i: =i+1; if i=3 then writeln('da') else writeln('net'); end.