Составить блок-схему и программу паскаль cоставить программу, сообщающую о возможности построения параллелограмма из отрезков x,y,z,t данные 1 , 2 , 1 , 2 можно 7 , 5 , 6 , 5 нельзя надо
Uses crt; var a: array [1..4] of integer; x,p,y:integer; begin writeln('Введите длины отрезков: '); for x:=1 to 4 do read(a[x]); for y:=1 to 3 do for x:=1 to 3 do if a[x]>a[x+1] then begin p:=a[x]; a[x]:=a[x+1]; a[x+1]:=p; end; if (a[1]=a[2]) and (a[3]=a[4]) then writeln('Можно') else writeln('Нельзя'); end.
var a: array [1..4] of integer;
x,p,y:integer;
begin
writeln('Введите длины отрезков: ');
for x:=1 to 4 do
read(a[x]);
for y:=1 to 3 do
for x:=1 to 3 do
if a[x]>a[x+1] then
begin
p:=a[x];
a[x]:=a[x+1];
a[x+1]:=p;
end;
if (a[1]=a[2]) and (a[3]=a[4]) then writeln('Можно')
else writeln('Нельзя');
end.