var i:integer;s:real;
begin
s:=1500;
for i:=1 to 12 do
s:=s+s*0.76;
end;
writeln(s);
end.
Var a,b,c:integer;
Begin
While a<>0 do
A:=12;
B:=1500;
B:=B*0,076+B;
End;
Writeln(‘VASHE chisel ’, B);
End.
Закинь в паскаль узнаешь ответ
var i:integer;s:real;
begin
s:=1500;
for i:=1 to 12 do
begin
s:=s+s*0.76;
end;
writeln(s);
end.
Var a,b,c:integer;
Begin
While a<>0 do
Begin
A:=12;
B:=1500;
B:=B*0,076+B;
End;
Writeln(‘VASHE chisel ’, B);
End.
Закинь в паскаль узнаешь ответ