Question

Pascal-програма обчислення суми 1+1/2+1/3+1/4+1/10

Answer 1

Ответ:

1+1/2+1/3+1/4+1/10=1+30/60+20/60+15/60+6/60=2 11/60

Answer 2

Звісно, ось приклад Pascal-програми для обчислення суми 1 + 1/2 + 1/3 + 1/4 + 1/10:

pascalCopy code
program SumCalculation;
var
  i: integer;
  sum: real;

begin
  sum := 0;
  
  for i := 1 to 4 do
  begin
    sum := sum + 1 / i;
  end;
  
  sum := sum + 1/10;  // Додатково додаємо 1/10 до суми
  
  writeln('Сума: ', sum:0:2);
  readln;
end.

Ця програма використовує цикл for для обчислення суми перших чотирьох дробових чисел та додає 1/10 до результату. Результат виводиться на екран з точністю до двох знаків після коми.