<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
При последовательном режиме выполняется сначала программа А, за 10 минут, а затем программа Б за 20 минут, в сумме их время получается 30минут. При мультипрограммировании программы выполняются не последовательно, а вместе, т.е. время на их выполнение будет лежать в промежутке от 20 до 30минут, где Т будет равно времени, лежащему в промежутке, за которое исполнитель выполнит обе задачи.
26*10*10 - 26 = 2574
пояснение:
26*10*10 - количество вариантов без условия "одновременно не равных 5)
тк на первом месте может стоять любая из 26 букв, на втором любая из 10 цифр, на третьем аналогично
далее вычитаем 26 вариантов: каждый вариант соответствует одной из 26 букв, когда две цифры равны 5
Var
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
Самое большое расстояние между D и B 32 - если ехать через A
а самое короткое расстояние между ними 16, если ехать из D через E и C