Две задачи

[vesper182]

Задачи Pascal
1. Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3,6,9,12,15,18,21,24 часа.
2. Ежемесячная стипендия студента составляет А руб., а расходы на проживание превышают стипендию и составляют В руб. в месяц. Рост цен ежемесячно увеличивает расходы на 3%. Составьте программу расчета необходимой суммы денег, которую надо единовременно попросить у родителей, чтобы можно было прожить 10 месяцев, используя только эти деньги и стипендию.

[VIK_aka_TOR]

во первых... на каком языке реализация...
во вторых... где попытки сделать что либо по решению этих задач самостоятельно... где код? ваши попытки написать...
в третьих... за вознаградение можно написать...

[vesper182]

вот первую вроде сделал правильно
var i,a,n:integer;
begin
write('введите кол-во часов ');
readln(n);
n:=n div 3;
a:=n*2;
write('всего амёб ',a:2);
end.

[VIK_aka_TOR]

думаю так будет немного правильнее...

var n:integer;
a: real;
begin
write('введите кол-во часов ');
readln(n);
n:=n div 3;
a:=power(2,n);
writeln('всего амёб ',a);
end.

[vesper182]

вторую вообще не могу

[Mad_Cat]

2

s:=b;
for i:=1 to 9 do begin
b:=b*1.03;s:=s+b;end;
writeln(s-10*a);