Подсчитайте в переменной s сумму чисел 7/5; 7/10; - вопрос №1178071375710720740780 от sashkatimoshka 20.11.2020 01:22

Question

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

sashkatimoshka · Answer

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....