// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var eps := 0.001; var (s,tmp):= (1.0,0.0); var i := 1; var k := 2.0; var (a, fib):= (1,2); while (abs(s-tmp) > eps)do begin tmp:= s; s+= k / (fib * 3**i ); inc(i); k:= (abs(k) + 2)*k/abs(k); k *= -1;
Var i,j,p:integer; a:array[1..20]of integer; begin writeln('Исходный массив:'); for i:=1 to 20 do begin a[i]:=random(20); write(a[i],' '); end; writeln; i:=1; while i<21 do begin j:=i; while j<21 do begin if a[i]<a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; i:=2; while i<21 do begin j:=i; while j<21 do begin if a[i]>a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end; j:=j+2; end; i:=i+2; end; writeln('Измененный массив:'); for i:=1 to 20 do write(a[i],' ') end.
Перевод числа Х из 10-тичной системы в n-ичную осуществляется путем деления с остатком числа Х на n, затем Х1 = Х/n на n и тд (до тех пор, пока Хi больше 0) и записыванием остатков деления в обратном порядке. В нашем случае: Х = 10, n = 2, % - операция получения остатка от деления, / - операция получения целой части от деления. 1) 10 % 2 = 0; 10 / 2 = 5 2) 5 % 2 = 1; 5 / 2 = 2 3) 2 % 2 = 0; 2 / 2 = 1 4) 1 % 2 = 1; 1 / 2 = 0 => конец. Выпишем остатки в обратном порядке (т.е. из шагов 4), 3), 2) и 1)): 10 (в 10-ной) = 1010 (в 2-ной) Проверка: 1010 (в 2-ной) = 1*2^3 + 0*2^2 + 1*2^2 + 0*2^0 = 8 + 0 + 2 + 0 = 10 (в 10-ной)
// Внимание! Если программа не работает, обновите версию!
begin
var eps := 0.001;
var (s,tmp):= (1.0,0.0);
var i := 1; var k := 2.0;
var (a, fib):= (1,2);
while (abs(s-tmp) > eps)do
begin
tmp:= s;
s+= k / (fib * 3**i );
inc(i); k:= (abs(k) + 2)*k/abs(k); k *= -1;
(a,fib) := (fib, a + fib);
end;
Writeln(S);
end.