Подсчитайте в переменной s сумму чисел 4/5; 12/5; 20/5; 28/5; 36/5 и так далее до тех...

Question

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

---

Comments

"пока сумма не превысит 19"
Программа должна доходить до этого? То есть когда она превысит - мы больше не считаем, или мы не должны доводить до сумму до 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.