begin
var n := ReadlnInteger;
var a := ReadArrInteger(n);
a := (a.Where(t -> t > 0) + a.Where(t -> t = 0) +
a.Where(t -> t < 0)).ToArray;
a.PrintLn
end.
1) неудобство чтенья
2) для того чтоб вставить какой-то редкий символ его надо искать в таблице символов
3) неудобно писать вычисления типа математических (много символов)
4) неудобно сравнивать далеко стоящие друг от друга куски текста
5) неудобно делать пометки и комментарии к тексту
2) 135/2=67 (1)
67/2=33 (1)
33/2=16 (1)
16/2=8 (0)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
135=10000111
257/2=128 (1)
128/2=64 (0)
64/2=32 (0)
32/2=16 (0)
16/2=8 (0)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
1/2=0 (1)
257=100000001
3)2^7*1+2^6*0+2^5*1+2^4*1+2^3*1+2^2*1+2^1*1+2^0*1=128+32+16+8+4+2+1=191=10111111
2^7*0+2^6*0+2^5*1+2^4*1+2^3*1+2^2*1+2^1*1+2^0*1=32+16+8+4+2+1=63=00111111
<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
Вот если бы этот код был написан русским языком, тебе не пришлось бы даже задание сюда выкладывать, сразу бы всё понял.
1) 6.
2) 2.
3) -4.
4) 12.