For32. Дано целое число N (> 0). Последовательность вещественных чисел A_K определяется следующим образом: A0 = 1, AK = (AK-1 + 1)/K, K = 1, 2, … . Вывести элементы A1, A2, …, AN.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | program For32; var Ai :Real; N, i :Integer; begin Write('Введите N: '); Readln(N); Writeln('Значения функции:'); Writeln('A(0)=1'); Ai:=1; For i:=1 to N do begin Writeln('A(',i,')=',(Ai+1)/i); Ai:=(Ai+1)/i; end; end. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #include int main(void) { int n; printf("N:"); scanf ("%i", &n); float ai=1; printf("A(0)=%f\n",ai); int i; for (i =1; i<=n; ++i){ printf("A(%i)=%f \n",i,(ai+1)/i); ai=(ai+1)/i; } return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); int n; cout << "N:"; cin >> n; float ai = 1; cout<< ai<<" "; int i; for (i = 1; i <= n; ++i) { cout<< i<<" "<< (ai + 1) / i<<" "; ai = (ai + 1) / i; } return 0; } |