0
Π Π΅ΡΠΈΡΡ Π·Π°Π΄Π°ΡΡ Π½Π° ΠΏΠ°ΡΠΊΠ°Π»Π΅
Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΡΠΌΠΌΡ y=-243+81+27+9 Ρ ΡΠΈΠΊΠ»ΠΎΠΌ for
4 Answers
0
Var y, k:integer;
begin
k:=3;
y:=-243;
for i:=1 to 3 do
begin
y:=y+(-1)*y/k;
k:=k*3-3;
End;
End.
0
program HelloDcoder;
var
y: integer;
begin
y := -243+81+27+9;
writeln(y);
end.
0
With a for loop you need
0
ΠΡΡΠ°ΡΠΈ, ΡΠΎΡΠΌΡΠ»Π° Ρ k ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΈ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ)