Царь Кощей все свои богатства разместил в швейцарском банке. Ему обещали, что каждый год он будет получать прибыль 13%. Сколько лет придется прожить Бессмертному, чтобы накопить на личный самолет?

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

var

Begin

End

Writeln

Readln

While ... do

Repeat ... until

Question

Информатика

Гапа

6 ноября, 12:49

Царь Кощей все свои богатства разместил в швейцарском банке. Ему обещали, что каждый год он будет получать прибыль 13%. Сколько лет придется прожить Бессмертному, чтобы накопить на личный самолет?

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

var

Begin

End

Writeln

Readln

While ... do

Repeat ... until

+1

Ответы (1)

Знаете ответ на вопрос?

Агриппа · Answer 1

Program Money;

var

n: integer;

m, need: real;

begin

writeln ('Введите кол-во денег Кощея') ;

readln (m) ;

writeln ('Введите стоимость самолёта') ;

readln (need) ;

while m < need do begin

m : = m + 0,13 * m;

inc (n) ;

end;

writeln ('Нужное кол-во лет - ', n) ;

end;