Рассчитайте сальдо миграции за год, если в начале года в стране проживали 10 млн.человек, в конце года - id118433720210704 от eriksan1 04.07.2021 07:25

Question

Другие предметы: Рассчитайте сальдо миграции за год, если в начале года в стране проживали 10 млн.человек, в конце года – 11,5 млн.человек, а естественный

eriksan1 · Accepted Answer

USES Crt;
VAR
  X: INTEGER; S, K, P: INTEGER;    I: BYTE;
Begin
   P:=1; S:=0; K:=0;
   FOR I:=1 TO 10 DO Begin
       WriteLn(‘Введите ‘,I,’ -е значение’);       ReadLn(x);
       IF X>0 Then P:=P*X;    { произведение положительных }
       IF X<0 Then Begin
                               S:=S+X; { сумма отрицательных }
                               K:=K+1; { количество отрицательных }
                             End;
   End;
   WriteLn(‘ Произведение положительных значений = ‘,p);
   WriteLn(‘ Сумма отрицательных значений = ‘,s);
   WriteLn(‘ Количество отрицательных значений = ‘,k);
END.

Рассчитайте сальдо миграции за год, если в начале года в стране проживали 10 млн.человек, в конце года – 11,5 млн.человек, а естественный

MOGZ ответил