• Вопрос по информатике:

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

    • Автор:

      ruger

  • 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 <= 5

       then capital+= capital/100*n;

    end;

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

    end.

    Язык PascalABC

    • Отвечал:

      jaylens50o
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска