ПОМОГИТЕ СОСТАВИТЬ Программку!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ. НУЖНО СРОЧНО!!!

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

Задать свой вопрос
2 ответа
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 bgt;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 bgt;a;
write(k);
end.
10) var b,m,a,v:integer;
begin
read(b,m,a);
v:=0;
while blt;=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 blt;=a do
    begin
     b:=b*(1+m/100);
     v:=v+1;
    end;
println(v);
end.
Света Лапаткова
9) var b,m,a,v:integer;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт