Поезд расстояние s = 17 км между двумя станциями со средней скоростью ср v = 60 км/ч. При этом на разгон - id110706320200107 от PoLiNaPaSeKo 07.01.2020 07:36

Question

Другие предметы: Поезд расстояние s = 17 км между двумя станциями со средней скоростью ср v = 60 км/ч. При этом на разгон в начале движения и торможение

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

Поезд расстояние s = 17 км между двумя станциями со средней скоростью ср v = 60 км/ч. При этом на разгон в начале движения и торможение

MOGZ ответил