Question

Нужно написать программу на языке паскаль.
С клавиатуры вводятся длины сторон К
прямоугольников. Посчитать количество вертикально
расположенных и количество горизонтально
расположенных прямоугольников, исходя из того, что
сторона А всегда параллельна оси Х, а сторона В -
оси У.

Answer 1

var

 a,b,k,i,k1:integer;

begin

 write('Сколько фигур: '); readln(k);

 b:=0; k1:=0;

 for i:=1 to k do

   begin

     write('Стороны ',i,'-го треугольника(A B): '); readln(a,k);

     if a>=k then  

       if a>k then  

         inc(b)

           else inc(k1);

   end;

 writeln('Горизонтальных: ',b);

 writeln('Вертикальных: ',i-b-k1);

 if k1<>0 then

 writeln('Квадратов: ',k1);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!