Очень нужна по информатике

Объяснение:

х-х*%

1)184.3

2)274.16

3)35.28

4)15.84

Нет не успеет

Объяснение:

program kopilka;

uses crt;

var x, c, p, y:real; i, m:integer; {x - деньги на счёте, с - цена автомобиля, p - процентная ставка, y - срок вклада в годах; m - срок вклада в месяцах, i - счётчик цикла}

begin

clrscr; {очистка экрана}

write ('Введите начальную сумму вклада, рублей: ') ;

readln(x);

write ('Введите желаемую сумму накопления, рублей: ') ;

readln(c);

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

readln(y);

m:=round(y*12); {здесь мы срок в годах пересчитыаем в месяцы}

write ('Введите ежемесячно начисляемый процент (%) : ') ;

readln(p); p:=p/100; {здесь из числа процентов получаем десятичную дробь}

for i:=1 to m do

x:=x+x*p; {каждый месяц сумма на вкладе увеличивается на p процентов, причем в каждом следующем месяце происходит капитализация вклада, и процент начисляется на возросшую за предыдущий месяц сумму}

if x<c then write('Вы накопили ',x:6:2,' рублей, это меньше запланнированной суммы в ',c:6:2,' рублей')

else write('Ваша цель по накоплению ',c:6:2,' рублей достигнута: вы накопили ',x:6:2,' рублей') ; {здесь мы сравниваем накопленную за m месяцев сумму с желаемой суммой с и, в зависимости от результата, делаем вывод}

readln;

end.