Опубликовано 08.03.2018 по предмету Информатика от Гость

SOS, нужна помощь!!! Программисты помогите, пожалуйста, написать программу к задаче. Нужно использовать while. Я школьник!

Ответ оставил Гуру

var n: integer;
    a: real;
    arr: array[1..999999] of real;
begin
    write('Введите длину последовательности: ');
    read(n);
    write('Введите a: ');
    read(a);
    for var i := 1 to n do begin
    if i = 1 then
        arr[i] := 1
    else
        arr[i] := 1 + 1/i;
        if arr[i] < a then
        writeln(arr[i]);
    end;
end.

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.