Линейка в программе Microsoft Word позволяет вам контролировать размер границ вашей страницы и отступы абзацев. Она отлично подходят для точной компоновки изображений, правильного размещения текста, таблиц, диаграмм и других элементов. Когда вы печатаете документ, то линейка вам убедиться, что ваш документ, который вы видите на экране, будет абсолютно таким же и на печатной странице.
Кашихина
25.02.2020
Var 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.
qwert28027170
25.02.2020
1. Традиционное решение
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.
Линейка в программе Microsoft Word позволяет вам контролировать размер границ вашей страницы и отступы абзацев. Она отлично подходят для точной компоновки изображений, правильного размещения текста, таблиц, диаграмм и других элементов. Когда вы печатаете документ, то линейка вам убедиться, что ваш документ, который вы видите на экране, будет абсолютно таким же и на печатной странице.