Помогите пожалуйста, люди добросердечные. Необходимо решить только 1-ые три. Напишите, только

Помогите пожалуйста, люди добросердечные. Необходимо решить только 1-ые три. Напишите, только понятно.
Заблаговременно спасибо.

Задать свой вопрос
1 ответ
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шт
Олеся Эламик
На данный момент еще 2.
Pavel Hromichev
ищё :3
Валерий
Ну pleas...
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт