Иран қандай мемлекет болды?​

Не, не получится накопить

Объяснение:

program kopilka;

uses crt;

var x, c, p, y:real; i, m:integer;

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;

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

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

readln;

end.

использовать Рисователь

алг кот

нач

новый лист(160, 210, белый)

линия (35,10,20,20)

линия (10,100,20,20)

линия (10,100,20,140)

линия (50,200,20,140)

линия (50,200,90,200)

линия (80,180,90,200)

линия (80,180,100,180)

линия (110,200,100,180)

линия (110,200,150,200)

линия (130,180,150,200)

линия (130,180,150,150)

линия (130,115,150,150)

линия (130,115,150,80)

линия (35,10,50,25)

линия (50,25,40,140)

линия (50,25,40,140)

линия (40,140,55,150)

линия (55,150,120,150)

линия (120,150,120,120)

линия (120,120,90,120)

линия (90,120,50,100)

линия (50,100,80,90)

линия (80,90,110,30)

линия (110,30,110,10)

линия (110,10,150,80)

кон