Определить прирост суммы вклада в банке (циклы с пред- и пост-условием) - 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.