begin Write('тормозной путь, определенного для данного места при полном служебном торможении = '); readln(a); Write('тормозной путь для на 120 км/ч для пассажирских поездов = '); readln(b); if b < a then a := b; Write('тормозной путь для на 80 км/ч для грузовых поездов = '); readln(b); if b < a then a := b; Write('тормозной путь при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = '); readln(b); if b > a then a := b; Write('участок, где видимость сигналов менее 400 м? да-1/нет-0 '); readln(b); if (b = 1) and (a < 1000) then a := 1000; Write('железнодорожная линия, вновь оборудуемая автоблокировкой? да-1/нет-0 '); readln(b); if (b = 1) and (a < 1000) then a := 1000; writeln(a); end.
const n=10; var x,y:array[1..n] of integer; sx,sy,i:integer; begin Randomize; Write('X: '); sx:=0; for i:=1 to n do begin x[i]:=Random(101)-50; Write(x[i],' '); sx:=sx+x[i] end; Writeln; Write('Y: '); sy:=0; for i:=1 to n do begin y[i]:=Random(101)-50; Write(y[i],' '); sy:=sy+y[i] end; Writeln; Writeln('Сумма х= ',sx,', сумма y= ',sy); if sx>sy then for i:=1 to n do y[i]:=0 else for i:=1 to n do x[i]:=0; Write('X: '); for i:=1 to n do Write(x[i],' '); Writeln; Write('Y: '); for i:=1 to n do Write(y[i],' '); Writeln end.
a, b: real ;
begin
Write('тормозной путь, определенного для данного места при полном служебном торможении = ');
readln(a);
Write('тормозной путь для на 120 км/ч для пассажирских поездов = ');
readln(b);
if b < a then a := b;
Write('тормозной путь для на 80 км/ч для грузовых поездов = ');
readln(b);
if b < a then a := b;
Write('тормозной путь при экстренном торможении с учетом пути, проходимого поездом за время, необходимое для воздействия устройств автоматической локомотивной сигнализации на тормозную систему поезда = ');
readln(b);
if b > a then a := b;
Write('участок, где видимость сигналов менее 400 м? да-1/нет-0 ');
readln(b);
if (b = 1) and (a < 1000) then a := 1000;
Write('железнодорожная линия, вновь оборудуемая автоблокировкой? да-1/нет-0 ');
readln(b);
if (b = 1) and (a < 1000) then a := 1000;
writeln(a);
end.