Определить прирост суммы вклада в банке (циклы с пред- и пост-условием) - Pascal ABC
Формулировка задачи:
Гражданин 1 июля открыл счет в банке, вложив S руб. Через каждый месяц размер вклада увеличивается на N% от имеющейся суммы. Определить прирост суммы вклада за 1,2,...,10 месяц.
Решение задачи: «Определить прирост суммы вклада в банке (циклы с пред- и пост-условием)»
textual
Листинг программы
- var a:real; b,c,i:integer; sum:real;
- begin
- writeln ('vvedite summy vklada');
- read (a);
- writeln('vvedite % stavku');
- read (b);
- writeln('vvedite srok vklada');
- read (c);
- for i:=1 to c do
- begin {! вместо строк с восклицательными знаками можно просто}
- a:=a+a/100*b; {!написать a:=a+a/100*b(сразу после for i:=1 to c do}
- writeln (a); {!без всякого бегин и енд}
- end; {!а это я написал чтобы вы видели за увеличение суммы по месяцам}
- writeln ('summa=',a:10:2); {2символа после запятой - копейки)
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
