Написать программу оператора цикла Pascal (Exel), чтобы рассчитать следующее:

Бизнесмен взял ссуду m тысяч рублей в банке под 20% годовых. Через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг?

Question

Информатика

Матяша

7 мая, 00:11

Написать программу оператора цикла Pascal (Exel), чтобы рассчитать следующее:

Бизнесмен взял ссуду m тысяч рублей в банке под 20% годовых. Через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг?

+5

Ответы (1)

Знаешь ответ?

Андря · Answer 1

Var

m, s, year, procent:Real;

Begin

Write ('Введите число m ');

Read (m);

Write ('Введите число s ');

Read (s);

procent: = (m/100) * 20;

while (m
begin

m:=m+procent;

year:=year+1;

end;

Writeln ('Долг превысит через', year:0:0,' год (а) ');

end.