Написать программку на языке Паскаль: Гражданин 1 марта открыл счет в

Написать программку на языке Паскаль: Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада возрастает на 2% от имеющейся суммы. Опре-разделять : а) за какой месяц величина каждомесячного роста вклада превысит 30 руб.; б) через сколько месяцев размер вклада превзойдет 1200 руб.

Задать свой вопрос
1 ответ
Var s,ds:real; k1,k2:integer;
begin
//a
s:=1000; ds:=0; k1:=0;
while dslt;=30 do
 begin
 ds:=s*0.02;
 s:=s+ds;
 k1:=k1+1;
 end;
writeln('k1 = ',k1);
//б
s:=1000; ds:=0; k2:=0;
while slt;=1200 do
 begin
 s:=1.02*s;
 k2:=k2+1;
 end;
writeln('k2 = ',k2);
end.

Результат:
k1 = 22
k2 = 10
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт