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
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
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