Подсчитайте в переменной s сумму чисел 4/5; 12/5; 20/5; 28/5; 36/5 и так далее до тех пор, пока сумма не превысит 19.Написать блок схему и программу на паскаль используя цикл ДО
Ответы
Ответ дал:
0
Ответ:
- 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.
Похожие вопросы
1 год назад
1 год назад
7 лет назад
7 лет назад