Var ar:array[1..20] of integer;
k,l,a,b:integer;
begin
randomize;
readln(k);
readln(l);
for a:=1 to 20 do
ar[a]:=random(a);
for a:=k to l do
b:=b+ar[a];
writeln(b);
end.
11011, 11012, 11013, 11014, 11015
11011-10111=900
11011+10111=21122
про двоичную систему счисления не знаю как не помню
Вообще ада назван в честь первого программиста Ады Лавлейс (женщина). Именно она написала первую программу в истории для аналитической машины Беббиджа. Большую информацию можно просто найти в поисковике.
//A lvl
var
i,sum: integer;
begin
i := 20; sum:=0;
while (i < 100) do
begin
inc(sum,i);
inc(i);
end;
Writeln(sum);
end.
// B lvl
var
i: integer;
sum:real;
begin
i := 1; sum:=0;
while (i <= 10) do
begin
sum := sum + 1 / i;
inc(i);
Writeln(sum);
end;
Writeln(sum);
end.