Ответ 81, но у меня почему то выводит 1

var s, k: integer;

begin

s:=1;

for k: = 3 to 0 do

s:=s*3;

write (s) ;

end.

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

Question

Зиша

6 декабря, 20:04

+5

Ответы (1)

Знаете ответ на вопрос?

Эммануилка · Answer 1

Var s:integer;

Begin

S:=1;

For k:=3 to 6 do

s:=k*3

Writeln (s) ;

End.

Ответ 81, но у меня почему то выводит 1var s, k: integer;begins:=1;for k: = 3 to 0 dos:=s*3;write (s) ;end.что неправильно?