Ответы на вопрос:
Const s0=100000; { первоначальная сумма в копейках } p=0.02; { величина, равная 1/100 от ежемесячного процента } var s,sp: longint; mes: integer; begin { все расчеты ведем в копейках } mes: =0; s: =s0; while sp< =30*100 do begin mes: =mes+1; sp: =round(s*p); s: =s+sp end; writeln('месяц ',mes,', сумма процента ',sp/100: 0: 2,' > 30'); mes: =0; s: =s0; while s< =1200*100 do begin mes: =mes+1; s: =s+round(s*p) end; writeln('месяц ',mes,', сумма вклада ',s/100: 0: 2, ' > 1200'); end. результат выполнения программы: месяц 22, сумма процента 30.31 > 30 месяц 10, сумма вклада 1218.98 > 1200
Популярно: Информатика
-
Zlyka1122.12.2022 22:18
-
льоша54554518.09.2021 19:11
-
TeamFortres216.11.2021 08:41
-
Znatokkekgg25.03.2020 22:38
-
malini2001.05.2021 04:21
-
Rafaelnodat125.05.2023 00:56
-
MorEnSo09.03.2020 17:46
-
gybshova12.12.2021 01:48
-
вселенная1314.10.2022 02:44
-
imamverdueffsa09.04.2020 02:30