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.
Оцени ответ
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответы