Запиши программку на языке Паскаль. Вычисли сумму s= n

Запиши программку на языке Паскаль. Вычисли сумму s= n k=1
k+1/k^2+1, если значение n вводит пользователь. Если n=6, то вывод на экран (Ответ округли до сотых)

Задать свой вопрос
1 ответ
Var
   S:real;
   k:integer;
Begin
Write('n = ');ReadLn(k);
For k:= 1 to k do
    S:=S+(k+1)/(k*k+1);
if k=6 then Write('S = ',S:0:2)
End.

Итог работы программки:
n = 6
S = 2.71
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт