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шт
81.35(10) = 1010001.010(2) = 121.263(8) = 51.<span>599(16)</span>
Нач.
ввод R,A
если А>или= , то "треугольник поместится" , иначе "не поместится".
конец.
овал
параллелограмм
ромб
2 параллелограмма ( в одном поместится в другом нет)
овал