СОСТАВЬТЕ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ
помогите пожалуйста....
Составить программу. Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p%. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина?
помогите пожалуйста....
Составить программу. Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p%. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина?
More Questions From This User See All
Answers & Comments
var
n,s,p:integer;
l,k:real;
begin
readln(k);
readln(p);
readln(s);
n:=0;
repeat
l:=k*p/100;
k:=l+k;
n:=n+1;
until k > s;
write(n div 12,'Лет',n mod 12,'Месяцов');
readln;
end.
взял отсюда: https://studassistent.ru/turbo-pascal/kommersant-imeya-startovyy-kapital-turbo-pascal