Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
Закачка файла винтика заняла 20 минут если бы не шпунтик со свойм файликом. Четыре минуты он качал с нормальной скоростью, а потом с половинной
Файл: 4+16*2=36 мин
Размер (Объём) файла шпунтика 20% больше
Он качал бы 20 мин.Начал качать после винтика, скорость уменьшается вдвое
48 мин. Но через 32 минут, винтик закончил скачивание и скорость умножилась на 2
48-32=16 еще 8 минут
<span>Разница в "4 МИНУТАХ"</span>
Элт. монитор
Электронно-лучевые приборы — класс электровакуумных электронных приборов, предназначенных для преобразований информации, представленной в форме электрических или световых сигналов. В приборах используются сфокусированные потоки электронов, управляемые по интенсивности и положению в пространстве.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9