• (30 баллов)) задача на Паскаль :
    Дано целое число N ( > 0). Последовательность действительны
    х чисел Ак определяется следующим образом : Ао = 2, Ак = 2 + 1 / А к -1 , К = 1,2, .... . Вывести элементы Ак

Ответы 2

  • Спасибо большое
    • Автор:

      justice24
    • 6 лет назад
    • 0
  • Сначала - современное решение, каким оно должно быть:// PascalABC.NET 3.0, сборка 1157 от 02.02.2016begin  SeqGen(ReadInteger('k=')+1,2.0,x->2+1/x).Skip(1).Println;end.Тестовое решение:k= 62.5 2.4 2.41666666666667 2.41379310344828 2.41428571428571 2.41420118343195А теперь "школьный вариант":// PascalABC.NET 3.0, сборка 1157 от 02.02.2016var  i,k:integer;  a,a0:real;begin  Write('k='); Read(k);  a0:=2;  for i:=1 to k do begin    a:=2+1/a0; a0:=a; Write(a,' ')    endend.Тестовое решение:k=62.5 2.4 2.41666666666667 2.41379310344828 2.41428571428571 2.41420118343195
    • Автор:

      memphis
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years