Задачи.

[IvanMir]

1. Составьте программу (оператор цикла) для нахождения суммы по следующей формуле: S= (x*x+x)/a*x (при x от 3 до 19) (Полностью)
2. Составить программу в turbo pascal для решения следующей задачи (оператор цикла): Известный пират Флинт положил некоторую сумму S в банк под 3 % годовых. Выведите на экран, через сколько лет сумма превысит 1,5*S. Начальное значение S вводится с клавиатуры. (Полностью, пожалуйста!!!)

[Aranea tela telam]

Первая

Program User;
var
s:real; 
x,a:integer;
begin
Writeln('Введите a');
Readln(a);
for x:=3 to 19 do
begin
s:=(x*x+x)/a*x;
writeln(s);
end;
end.

[Aranea tela telam]

Вторая

Program User;
var
a,b:real; 
s,c:integer;
begin
c:=0;
readln(s);
a:=s;
b:=1.5*s;
while a<=b do
begin
a:=a+((a/100)*3);
c:=c+1;
end;
Writeln('Через ',c);
end.