Question

ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ. НУЖНО СРОЧНО!!!

Answer 1

10) var b,m,a,v:integer;
begin
read(b,m,a);
v:=0;
while b<=a do
   begin
   b:=b+m;
   v:=v+1;
   end;
println(v);
end.

 var b,m,a,v:integer;
begin
read(b,m,a);
v:=0;
while b<=a do
    begin
     b:=b*(1+m/100);
     v:=v+1;
    end;
println(v);
end.

Answer 2

9) var b,m,a,v:integer;

Answer 3

9)
Program n9;
var b,m,a: real;
k: integer;
begin
readln(b,m,a);
k:=1;
repeat
b:=b+b*m/100;
k:=k+1;
until b>a;
write(k);
end.
10)
Program n10;
var b,m,a: real;
k: integer;
begin
readln(b,m,a);
k:=1;
repeat
b:=b+m;
k:=k+1;
until b>a;
write(k);
end.