Напишите программу Pascal в ЦИКЛИЧЕСКОМ алгоритме. Задача:Определить,являются ли подобными 2 треугольника,если известны длины вс
Напишите программу Pascal в ЦИКЛИЧЕСКОМ алгоритме. Задача:Определить,являются ли подобными 2 треугольника,если известны длины всех 3-х сторон каждого треугольника.
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'); <span>end.</span>
Program HelloWorld; var S: double; begin writeln('Введите массу тела:'); readln(S); writeln('Масса кислорода и атомов равна:'); S:=S*0.68; writeln(S:15:2); end.