Прочитайте текст. Спишите первое предложение. Москва — столица нашей Родины. Это большой и красивый - id114312320200804 от MiklJackson 04.08.2020 05:52

Question

Другие предметы: Прочитайте текст. Спишите первое предложение. Москва — столица нашей Родины. Это большой и красивый город. В нём много старинных

MiklJackson · 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.

Прочитайте текст. Спишите первое предложение. Москва — столица нашей Родины. Это большой и красивый город. В нём много старинных

MOGZ ответил