1.Составить программу вычисления суммы S=1+1/2+1/3+1/4+ | S= 1+1/2+1/3+1/4+1/n 2.Вычислите значени?

1.Составить программу вычисления суммы S=1+1/2+1/3+1/4+ | S= 1+1/2+1/3+1/4+1/n 2.Вычислите значени?? выражения (1+2) * (1+2+3) * (1+2+3+4) * (1+2+3+....10) Решить в Pascal ABC.
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var a,n:integer;     s:real; begin s:=0; write('введите число n : '); readln(n); for a:=1 to n do begin s:=s+(1/a); end; writeln('сумма чисел от 1 до 1/',n,' = ',s); end. ввод :4; вывод: 2.08333333333333; program n2; var s,pr:double;     a:integer; begin s:=1; pr:=1; for a:=2 to 10 do begin s:=s+a; pr:=pr*s; end; writeln('pr = ',pr); end. вывод: pr = 141455160000
Не нашли ответ?
Ответить на вопрос
Похожие вопросы