
Seal
5 год назад
PASCAL ABC NETОТМЕЧУ КАК ЛУЧШИЙ ОТВЕТ!!!Задание 1. Вывести на экран натуральные числа от 1 до 9 в обратном порядке. Задание 2.Составить программу вычисления значения выражения y=1+1/2+1/3+... +1/20.{В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1. Обозначим: у - очередное значение суммы дробей; n - параметр цикла. Учитывая это, составим программу: }
ОТВЕТЫ

Алиса
Oct 24, 2020
begin
Range(9,1,-1).Println
end.
9 8 7 6 5 4 3 2 1
begin
Writeln('S=',Range(1,20).Aggregate(0.0,(x,y)->x+1/y))
end.
S=3.59773965714368
152
Смежные вопросы: