Завдання 1. Складання лінійних проєктів з величинами ( ів) 1. Відкрийте середовище розробки та виконання проєктів Python.

2. Складіть проект малювання двох квадратів, якщо довжина сторони першого на 30 кроків більша за довжину сторони другого.

  Только решу задачку - Интер вырубается

А получилось вот что:

uses Crt;
const N=30;
type Mas=array [1..N]  of integer;
 var i, j , SumPol, SumOtr: integer;
     A: Mas;
begin
 ClrScr;
 SumPol:=0;
 SumOtr:=0;
  WriteLn(' Sposob 1:');
  WriteLn;
 for i:=1 to N do
     begin
          A[i]:=-10+random(21);
          Write (A[i]:4);
     end;
 WriteLn;
 for i:=1 to N do
 begin
       if (A[i]>0) then SumPol:=SumPol+A[i];
       if (A[i]<0) then SumOtr:=SumOtr+A[i];
 end;
 WriteLn(' SumPol =', SumPol);
 WriteLn(' SumOtr =', SumOtr);
 WriteLn;
 WriteLn (' Sposob 2:') ;
 SumPol:=0;
 SumOtr:=0;
 i:=1;
 repeat
   if (A[i]>0) then SumPol:=SumPol+A[i];
   if (A[i]<0) then SumOtr:=SumOtr+A[i];
   i:=i+1;
 until i>30;
 WriteLn(' SumPol =', SumPol);
 WriteLn(' SumOtr =', SumOtr);
 ReadLn;
end.

ОбъяснениеВ языке Паскаль описатель типа integer требует выделить под каждую переменную или элемент массива количество памяти, необходимое для размещения чисел из диапазона , т.е. отвести не менее двух байт, что и выполнялось в ранних системах, таких как Turbo Pascal, созданных во времена дорогой оперативной памяти. В современных разработках может выделяться и большее количество байт, например, в PascalABC.Net под переменную типа integer отводится 4 байта.

Описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40.

А для PascalABC.Net ответ должен быть 20, 80

Подробнее - на -