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.

Оцени ответ
Не нашёл ответ?

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

Найти другие ответы

Загрузить картинку
© Задачки.net