На продуктовый склад привезли в понедельник ....

[jager666]

3. На продуктовый склад привезли в понедельник продукции на сумму 1000 р. Каждый следующий день недели кроме воскресенья привозят продукции на 10% больше. Со следующего понедельника опять начинают с 1000 руб. Когда на складе накапливается продукции не менее, чем на 10000 руб, со склада увозят потребителям партию стоимостью ровно 10000 руб. На какую сумму будет иметься на складе продукция через a дней после начала его работы?

[Mad_Cat]

попытки есть?
нет - читаем подпись
есть - выкладываем

[jager666]

Ничего не получается, немогу сделать цикл на 6 дней чтобы каждый увеличивался на 10% подскажите плиз

[Mad_Cat]

Ничего не получается

как пробовал покажи

a := 1000*0.1;
2d := 1000 + a;
3d := 2d + a
и т.д.

Да уж)

uses crt;
var i,a:integer;
k:real;
s:real;
begin
readln(a);
s:=1000;k:=1000;
for i:=2 to a do begin
case i mod 7 of
1..6:begin k:=k*1.1;s:=s+k;end;
0: k:=1000;
end;
if s>=10000 then s:=s-10000;
end;
writeln(s);
readln;
end.

[jager666]

a := 1000*0.1;
2d := 1000 + a;
3d := 2d + a
и т.д.

[jager666]

Сообщение от Mad_Cat

как пробовал покажи
Да уж)

uses crt;
var i,a:integer;
k:real;
s:real;
begin
readln(a);
s:=1000;k:=1000;
for i:=2 to a do begin
case i mod 7 of
1..6:begin k:=k*1.1;s:=s+k;end;
0: k:=1000;
end;
if s>=10000 then s:=s-10000;
end;
writeln(s);
readln;
end.

СПАСИБО!!!!!