Нужно сделать программку на паскале.Есть "капитал" (нужно вводить самому с клавы),

Нужно сделать программку на паскале.
Есть "капитал" (нужно вводить самому с клавы), этот капиал каждый рабочий день (пн, вт, ср, чт, пт) возрастает на n процентов (число вводится с клаввиатуры) при условии, что после каждого денька капитал возрастает на те самые n процентов. Сколько денег будет на капитале через n дней (тоже вводится с клавы). Пример: было 600, каждый день этот капиал возрастает на 10%,в итоге 1-ый денек 660, второй денек 726, третий день 798,6, четвёртый 878,46. Число в итоге должно быть округлено до тысячных. 70 баллов даю.

Задать свой вопрос
1 ответ

program raf105;

var

 capital,n: real;

 i,d,weekday: integer;

begin

write('Введите капитал: ');

readln(capital);

write('Введите рост капитала(%): ');

readln(n);

write('Введите количество дней: ');

readln(d);

for i:=1 to d do

begin

 if weekday = 7

   then weekday:= 0;

 weekday+=1;

 if weekday lt;= 5

   then capital+= capital/100*n;

end;

writeln('Через ',d,' дн. на капитале будет ',capital:0:2,' руб.');

end.

Язык PascalABC

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт