Отыскать сумму вида 1/2+1/4+1/6..... n раз? Вывести на экран слово "привет"

Отыскать сумму вида 1/2+1/4+1/6..... n раз?

Вывести на экран слово "привет" n раз?

Прошу, очень нуждаюсь в подмоги, не понимаю ничего!!!!
Дам 15 баллов!!

Задать свой вопрос
Антонина Барышова
Паскаль?
Дмитрий Колокин
Да
1 ответ
Var
N,i:integer;
S:real;
Begin
Write('N = ');ReadLn(N);
i:=0;
For N:= 1 to N do
    Begin
    i:=i+2;
    S:=S+1/i;
    End;
WriteLn(S)
End.




Var
N:integer;
Begin
Write('N = ');ReadLn(N);
For N:= 1 to N do
    WriteLn('привет')
End.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт