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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Ответ:

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.