Необходимо сделать программу на паскале. есть капитал - вопрос №1376253 от tray5o3 23.09.2022 18:52

Question

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

tray5o3 · Answer

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