Клиент положил деньги в банк под N% годовых.Составьте алгоритм и программу,определяющие,через сколько его вклад удвоится.
Answers & Comments
Royal21var c, k, n: integer; begin writeln('Введите процент: '); readln(n); while k < 100 do begin k := k + n; inc(c); end; writeln(c * 12, ' мес.'); end.
Answers & Comments
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
end.