ПОМОГИТЕ СРОЧНО ПАСКАЛЬ ДАМ 20 БАЛЛОВ 2 3 и 4 пожалуйста

Question

ПОМОГИТЕ СРОЧНО ПАСКАЛЬ ДАМ 20 БАЛЛОВ 2 3 и 4 пожалуйста

---

Answer 1

Решения для третьей и второй задач

Comments

Вторая

---

--------------

---

program psck;

var

count, count1 : integer;
p, now, x, x1, sum: real;

begin

readln(x,p);
p:=1+p/100;
count:=0;
now:=0;
x1:=x;
sum:=0;
count1:=0;

while now<3*x do<br>begin
now:=now+x;
x:=x*p;
count:=count+1;
end;

while sum<1000 do<br>begin
sum:=sum+x1;
x1:=x1*p;
count1:=count1+1;
end;

writeln('В три раза больше на ',count,' день');
writeln('Не менее 1000 км за ',count1,' день');
end.

---

-----------------

---

Третья

---

-------------------------------

---

program psck;

var

z, p, sum, now : real;
count: integer;

begin

readln(now);
sum:=now;
count:=1;

while now<100 do<br>begin
now:=now*1.1+5;
count:=count+1;
sum:=sum+now;
end;

writeln('Номер дня - ',count);
writeln('Зарплата в этот день - ',now);
writeln('Сумма заработанных денег - ',sum:20:2);

end.

---

И удали переменные z и p, они не нужны для решения третьей задачи, забыл удалить)