Question

Подсчитайте в переменной s сумму чисел 4/5; 12/5; 20/5; 28/5; 36/5 и так далее до тех пор, пока сумма не превысит 19.Написать блок схему и программу на паскаль используя цикл ДО

Answer 1

Ответ:

• program Sum_chisel;
• var s: real; n: integer;
• begin
• s := 0;
• n := 4;
• repeat
• s := s + n/5;
• n := n + 8;
• until s > 19;
• writeln('сумма=', s)
• end.

Answer 2

Конечно, вот блок-схема и программа на Pascal, которые выполняют указанную задачу:

Блок-схема:

luaCopy code
  +----------------+
  | Начало программы |
  +----------------+
          |
          v
  +----------------------+
  | Инициализация переменных |
  +----------------------+
          |
          v
  +------------------+
  | Переменная s = 0 |
  +------------------+
          |
          v
  +-----------------------+
  | Повторять             |
  |                      |
  |    +-----------------+
  |    | Прибавить 4/5 к s |
  |    +-----------------+
  |    |
  |    v
  |    +------------------+
  |    | Если s > 19, то  |
  |    |      Завершить   |
  |    +------------------+
  |                      |
  +----------------------+
          |
          v
  +----------------+
  | Вывести s      |
  +----------------+
          |
          v
  +----------------+
  | Конец программы |
  +----------------+

Программа на Pascal:

pascalCopy code
program SumFractions;

var
  s: Real;

begin
  s := 0;

  repeat
    s := s + 4/5;
  until s > 19;

  writeln('Сумма чисел превысила 19. Результат: ', s);
end.

Эта программа использует цикл repeat...until, который будет выполнять прибавление дроби 4/5 к переменной s, пока сумма s не превысит 19. Как только это условие будет выполнено, программа выведет результат.