ответ 81, но у меня почему то выводит 1
var s,k:integer;
begin
s:=1;
for k:=3 to 0 do
s:=s*3;
write(s);
end.
что неправильно?
var s,k:integer;
begin
s:=1;
for k:=3 to 0 do
s:=s*3;
write(s);
end.
что неправильно?
More Questions From This User See All
Answers & Comments
Begin
S:=1;
For k:=3 to 6 do
s:=k*3
Writeln (s);
End.