Учебное задание Заполнить таблицуРасыПризнакиРегионыраспространенияНегроиднаяЕвропеоиднаяМонголиднаяAnasa morena Magae​

Негроидная раса

Признаки: темная кожа; широкий разрез глаз; высокий рост; темные волосы; большой нос

Регионы распространения: Африка

Европеоидная раса

Признаки: белая кожа; светлые волосы; средний рост; широкий разрез глаз; средний нос

Регион распространения: Европа

Монголоидная раса

Признаки: маленький рост; темные волосы; узкий разрез глаз; маленький нос; белая кожа

Регион распространения: Азия

var

 N, i, P, O, Z : Integer;

 R : Real;

begin

 Write('n = '); ReadLn(N);

 P := 0; O := 0; Z := 0;

 // для for         // для while       // для repeat

 for i := 1 to N do // i := 0;         // i := 0;

                    // while i < N do  // repeat

   begin            // begin           //   Inc(i)

                    //   Inc(i);

     Write(i, ' число = '); ReadLn(R);

     case sign(R) of

       +1 : Inc(P);

       -1 : Inc(O);

        0 : Inc(Z);

      end;

   end;             // end;            // until i = N;

 WriteLn('Процент положительных чисел: ', P*100/N);

 WriteLn('Процент отрицательных чисел: ', O*100/N);

 WriteLn('      Процент нулевых чисел: ', Z*100/N);

end.

var

 N, i, P, O, Z : Integer;

 R : Real;

begin

 Write('n = '); ReadLn(N);

 P := 0; O := 0; Z := 0;

 // для for         // для while       // для repeat

 for i := 1 to N do // i := 0;         // i := 0;

                    // while i < N do  // repeat

   begin            // begin           //   Inc(i)

                    //   Inc(i);

     Write(i, ' число = '); ReadLn(R);

     case sign(R) of

       +1 : Inc(P);

       -1 : Inc(O);

        0 : Inc(Z);

      end;

   end;             // end;            // until i = N;

 WriteLn('Процент положительных чисел: ', P*100/N);

 WriteLn('Процент отрицательных чисел: ', O*100/N);

 WriteLn('      Процент нулевых чисел: ', Z*100/N);

end.