7. Дано число а (0 < а ≤ 1). Из чисел 1, 1/2, 1/3, ... напечатать те, которые не меньше а. 8. Дано число а (1 < а ≤ 1,5). Из чисел 1 +1/2, 1+1/3 ... напечатать те, которые не меньше а.
Комментарий к выполнению
Числа 1 +1/2, 1+1/3 ... представляют собой сумму 1+1/n (n=2, 3, ...) и образуют убывающую последовательность.
Линейный алгоритм если в алгоритме присутствует условие,то это алгоритм называется разветвляющийся(ветвление), Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий алгоритм в котором действия повторяются многократно называется циклический Циклический алгоритм — описание действий, которые должны по вторяться указанное число раз или пока не выполнено заданное условие. Перечень повторяющихся действий называется телом цикла.
Const n=10; var a:array[1..n] of integer; i,s,min:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln; s:=0; min:=a[1]; for i:=1 to n do begin if a[i]>0 then s:=s+a[i]; if a[i]<min then min:=a[i]; end; writeln('s = ',s,' min = ',min); for i:=1 to n do if a[i]>0 then a[i]:=s else if a[i]<0 then a[i]:=a[i]-min; writeln('Измененный массив:'); for i:=1 to n do write(a[i]:4); writeln; end.
7.
a = float(input())
i = 1
while 1/i >= a:
print('1/'+str(i))
i += 1
8.
a = float(input())
i = 1
while 1+1/i >= a:
print('1+1/'+str(i))
i += 1