<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
Жесткие диски, флеш карты, касеты.
Це означає як шукати. Через пошукові системи.
<span><em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.</span>
<u>Пример</u>
n= 8
1 1 2 3 5 8 13 21
<span>В России построена первая телеграфная линия - 40-е гг. 19 века.</span>
<span>В Америке изобретён телефон - 1876 г</span>
<span>Русский ученый Попов открыл радиосвязь - <span>1895 г.</span></span>
Создан первый телевизор - 30-е гг. 20 века
<span><span><span><span><span><span><span><span>В США начала функционировать первая в мире компьютерная - </span>1969 г. </span></span></span></span></span></span></span>