Закономерность выборки состоит в том,что выбирается каждая четвертая буква в алфавите.
А,д,з,л,п,у,ч,ы,Я.
Program Abc;
Var a,b,c : real;
Begin
WriteLn('Введите а, b, c');
ReadLn(a,b,c);
WriteLn('Ответ: ',(b+sqrt(sqr(b)+4*a*c))/2*a-a*a*a*c+1/sqr(b));
End.
Var z,k,p,s,sp,a:real; n:integer;
begin
readln(z,k,p,a);
s:=0; sp:=0; n:=0;
while (n<12)and(sp<a) do
begin
n:=n+1;
s:=s+z-k;
sp:=sp+s*p/100;
s:=s+sp;
end;
writeln('n = ',n);
writeln(sp:4:2);
end.
Пример:
35000 3500 0.5 15000
<span>n = 12
13093.25</span>