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.

Answer 2

var s,k:integer;