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

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

Question

Информатика

Галиша

1 ноября, 06:06

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

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

+3

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