Ответ 81, но у меня почему то выводит 1var s,k:integer;begins:=1;for k:=3 to 0 dos:=s*3;...

Question

Ответ 81, но у меня почему то выводит 1
var s,k:integer;

begin

s:=1;

for k:=3 to 0 do

s:=s*3;

write(s);

end.
что неправильно?

Answer 1

Var s:integer;
Begin
S:=1;
For k:=3 to 6 do
s:=k*3
Writeln (s);
End.

Comments

var s,k:integer;