Одна пальчикова батарейка може забруднити 400 л води. Об'єм води в озері Світязь становить 180 000 000 м.
Запишіть оператор циклу для визначення того, на який день
забрудниться все озеро, якщо першого дня безвідповідально ви-
кинути одну батарейку, а кожного наступного удвічі більше,
ніж попереднього.
Складіть програму для розв'язування задачі методом перебору.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

var a, b: real; n: integer;

function arif_mem(a, b: real; n: integer): real; begin if n = 1 then arif_mem : = a; if n > 1 then arif_mem : = arif_mem(a, b, n - 1) + b; end;

function arif_sum(a, b: real; n: integer): real; begin if n = 1 then arif_sum : = a; if n > 1 then arif_sum : = arif_sum(a, b, n - 1) + arif_mem(a, b, n); end;

begin write('введите первый член прогрессии: '); readln(a); write('введите разность прогрессии: '); readln(b); write('введите номер члена прогрессии: '); readln(n); writeln(n, '-й член прогрессии равен : ', arif_mem(a, b, n): 8: 2); writeln('сумма ', n, ' членов прогрессии равна : ', arif_sum(a, b, n): 8: 2); end.

не знаю в каком виде это должно быть

1 ввод возрастов

2 если s> m то пишем "саша старше маши "

3 иначе если s=m то пишем "саша и маша ровестники"

4 иначе пишем "маша старше саши"

в первом нет строчки 3

v= 36864 бит/с

1 стр.= 2304 сим.* 8 бит= 18 432 бит

4 стр.= 18 432 бит* 4= 73 728 бит=s

t - ?

t= s/v

t= 73728 бит / 36 864 бит/c= 2

ответ: 2