Как через паскаль решать..помогите плизз Гражданин 1 марта открыл счет в банке, вложив 100000 руб. Через каждый месяц размер вклада увеличивается на 4% от имеющейся суммы. Определить: через сколько месяцев величина ежемесячн...
Как через паскаль решать..помогите плизз Гражданин 1 марта открыл счет в банке, вложив 100000 руб. Через каждый месяц размер вклада увеличивается на 4% от имеющейся суммы. Определить: через сколько месяцев величина ежемесячного увеличения вклада превысит 30 руб
Гость
Ответ(ы) на вопрос:
ГостьВот. var mes,i:int64; n,sum:real;
begin
readln (n);
sum:=0;
repeat
sum:=sum+n/100*4;
mes:=mes+1;
until sum<>30;
writeln (mes);
end.
Гостьvar s,vk:real; m:integer; begin s:=100000; vk:=0; m:=0; while vk<=30 do begin vk:=vk+0.04*s; s:=1.04*s; m:=m+1; end; write(m); end. Это решение для ваших параметров. Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end. Это решение для задаваемых параметров Вопросы, недочеты в ЛС
Не нашли ответ?
Похожие вопросы