В банк был положен вклад в размере N рублей.Каждый месяц он увеличивался на 1%.Определить размер вклада через 5 лет
Ответы
Ответ дал:
0
VAR
n: Real;
i, j: Byte;
BEGIN
Read(n);
for i := 1 to 5 do
for j := 1 to 12 do
n := n * 1.01;
Write(n);
END.
n: Real;
i, j: Byte;
BEGIN
Read(n);
for i := 1 to 5 do
for j := 1 to 12 do
n := n * 1.01;
Write(n);
END.
Ответ дал:
0
VAR
n: Real;
kol: Byte;
BEGIN
Read(n);
kol := 5 * 12;
while (kol > 0) do begin
n := n * 1.01;
kol := kol - 1;
end;
Write(n);
END.
n: Real;
kol: Byte;
BEGIN
Read(n);
kol := 5 * 12;
while (kol > 0) do begin
n := n * 1.01;
kol := kol - 1;
end;
Write(n);
END.
Ответ дал:
0
вот с While
Ответ дал:
0
Так нужно было ?
Ответ дал:
0
да
Ответ дал:
0
:D
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад