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шт
Var
a, b: real;
begin
write('Введите 2 числа: ');
readln(a, b);
if a = b then a := a * b
else a := a / b;
writeln(a);
end.
Глоссарий, предметный указатель, алфавитный указатель, гиперссылки (в электронных изданиях).
Ответ на первый вопрос выделен оранжевым
на второй - синим
на третий - зеленым
на четвертый - красным
--
P.S. Честно говорю, что таблица получилась кривая и малоинформативная.
Может у кого-то еще будут идеи со структурой таблицы...