Question

Помогите составить блок-схему и программу паскальCоставить программу, сообщающую о возможности построения параллелограмма из отрезков X,Y,Z,T Данные 1 , 2 , 1 , 2 можно 7 , 5 , 6 , 5 нельзяПожалуйстаСрочноНадо

Answer 1

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.

Answer 2

Программа на языке Pascal, которая определяет возможность построения параллелограмма из отрезков X, Y, Z, T:

program CheckParallelogram;

var
  X, Y, Z, T: integer;

begin
  writeln('Введите длины отрезков X, Y, Z, T:');
  readln(X, Y, Z, T);
  
  if (X = Z) and (Y = T) then
    writeln('Можно построить параллелограмм')
  else if (X = Y) and (Z = T) then
    writeln('Можно построить параллелограмм')
  else if (X = T) and (Y = Z) then
    writeln('Можно построить параллелограмм')
  else
    writeln('Нельзя построить параллелограмм');
  
  readln;
end.

Блок-схема программы:

+----------------+
| Ввод X, Y, Z, T |
+----------------+
        |
        V
+------------------------+
| X = Z и Y = T ?        |
| или X = Y и Z = T ?    |
| или X = T и Y = Z ?    |
+------------------------+
        |
        V
+------------------------+
| Вывод "Можно построить" |
+------------------------+
        |
        V
+------------------------+
| Вывод "Нельзя построить"|
+------------------------+