Паскаль ! знайти найменший номер члена послiдовностi, - вопрос №3831973 от maksimys 24.11.2021 02:34

Question

Математика: Паскаль ! знайти найменший номер члена послiдовностi, для якого виконує- ться умова |an − an−1| e. вивести на екран цей номер i всi еле- менти ai , де i = 1, 2, . . , n: an =0.5*(an−1+an−2) a1 = 1, a2 = 2 an =(n^ln n)/(ln n)^n

maksimys · Answer

var  a, p: real;  n, i: integer;begin  p := 1;  readln(a, n);  for i := 0 to (n - 1) do    p := p * (a + i);  writeln(p);end....