Подсчитайте в переменной s сумму чисел 7/5; 7/10; - вопрос №7571072074078011780036 от Дмитртй11 14.04.2023 01:51

Question

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

Дмитртй11 · 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....