Болтин
5 год назад
Пожалуйста посчитайте СОСТАВИТЬ ПРОГРАММУ!!!ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ. НУЖНО СРОЧНО!!!
ОТВЕТЫ
Jordan
Oct 24, 2020
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.
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.
889
Смежные вопросы:
