1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт
11000010 в двоичной(194)
302 в восьмеричной(194)
С2 в шеснацетеричной(194)
1111111 в двоичной(7F)
177 в восьмеричной(7F)
127 в десятичной(7F)
Ответ:
вообще,там очень большая цифра получится ,но если сокр всё ,то 5
Var a,b:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if a=b then writeln ('a=b') else
begin
if (a>b) then writeln('max=',a,' min=', b) else
writeln ('max=',b, ' min=', a)
end;
readln;
<span>end.</span>