Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ




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
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам