1)Повторить разобранную на уроке Задача №30
Program deng30;
var i :integer;
s
,P :real;
begin
S:=200000;
writeln('введите денежный процент P
= ');
readln(P);
for i:=1626
to 2012 do
S:=
S+S/100*P;
writeln('s
= ', s:15:0);
end.
2)Заполнить рабочая тетрадь стр 75
3)Сделать №32 и №33