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

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

var

Begin

End

Writeln

Readln

While ... do

Repeat ... until

Question

Информатика

Таюся

27 января, 09:23

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

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

var

Begin

End

Writeln

Readln

While ... do

Repeat ... until

+2

Ответы (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;