Паскаль! Нач. уровень.
С использованием WHILE
Гражданин 1 марта открыл счет в банке вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы.
Определить:
1)сколько денег будет на счете через 6 мес;
2) Через сколько месяцев размер вклада превысит 1200 руб.;
3) За какой месяц величина ежемесячного вклада превысит 50 руб.
С использованием WHILE
Гражданин 1 марта открыл счет в банке вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы.
Определить:
1)сколько денег будет на счете через 6 мес;
2) Через сколько месяцев размер вклада превысит 1200 руб.;
3) За какой месяц величина ежемесячного вклада превысит 50 руб.
More Questions From This User See All
Answers & Comments
program t;
var
a,c:real;
i:integer;
begin
i:=1;
a:=1000;
write('1');
while(i<>6) do
begin
a:=a+a*(2*0.01);
inc(i);
end;
writeln('Спустя ',i,' месяцев =',a:4:2);
a:=1000;
i:=1;
write('2');
while(true) do
begin
a:=a+a*(2*0.01);
inc(i);
if(a>1200)then begin writeln('Через ',i); break; end;
end;
a:=1000;
c:=0;
i:=1;
write('3');
while(true) do
begin
c:=a*(2*0.01);
a:=a+c;
inc(i);
if(c>50) then begin writeln('через ',i,' месяцев'); break; end;
end;
end.