Программа на Pascal ABC для вычисления суммы S=1+1/2+1/3+1/4+1/n:
program SumCalculation; var n, i: integer; S: real; begin write('Введите значение n: '); readln(n); S := 0; for i := 1 to n do begin S := S + 1 / i; end; writeln('Сумма S = ', S); end.
Значения выражения (1+2) (1+2+3) (1+2+3+4) * (1+2+3+....10):
program ExpressionCalculation; var result, i, j: integer; begin result := 1; for i := 2 to 10 do begin j := 0; while j < i do begin j := j + 1; result := result * (j + i - 1); end; end; writeln('Значение выражения: ', result); end.
Программа на Pascal ABC для вычисления суммы S=1+1/2+1/3+1/4+1/n:
program SumCalculation;var
n, i: integer;
S: real;
begin
write('Введите значение n: ');
readln(n);
S := 0;
for i := 1 to n do
begin
S := S + 1 / i;
end;
writeln('Сумма S = ', S);
end.
Значения выражения (1+2) (1+2+3) (1+2+3+4) * (1+2+3+....10):
program ExpressionCalculation;var
result, i, j: integer;
begin
result := 1;
for i := 2 to 10 do
begin
j := 0;
while j < i do
begin
j := j + 1;
result := result * (j + i - 1);
end;
end;
writeln('Значение выражения: ', result);
end.