Question

Подсчитайте в переменной s сумму чисел 7/5; 7/10; 7/20; 7/40; 7/80 и так далее до тех пор, пока сумма не превысит 18. Напишите программу на Pascal

Answer 1

Ответ:

program Hello;

var i : Integer;

   sum:real;

begin

i := 5;

sum := 7 / i;

while sum < 18 do

begin

i := i * 2;

sum := sum + 7 / i;

end;

writeln(sum);

writeln(i);

end.

Answer 2

Конечно! Вот пример программы на Pascal, которая подсчитывает сумму чисел, пока она не превысит 18:

pascalCopy code
program CalculateSum;

var
  s, term: real;
  denominator: integer;

begin
  s := 0;
  term := 7 / 5;
  denominator := 5;

  while s <= 18 do
  begin
    s := s + term;
    denominator := denominator * 2;
    term := 7 / denominator;
  end;

  writeln('Сумма чисел:', s:0:2);
  readln;
end.

В этой программе используется переменная s для хранения текущей суммы чисел и term для хранения текущего значения, которое будет добавлено к сумме на каждой итерации. Переменная denominator используется для хранения знаменателя дроби, который удваивается на каждой итерации.

Программа выполняет цикл while, который продолжается, пока сумма s не превысит 18. На каждой итерации сумма s увеличивается на значение term, а знаменатель denominator удваивается и пересчитывается значение term. Когда условие s <= 18 перестает выполняться, программа выводит результат.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.