Решение 6 задания ОГЭ по информатике (6.7) про цикл for

1
2
3
4
5
6
7

Var s, k: integer;
Begin
s := 1;
for k := 4 downto 2 do
  s := s*2;
write (s);
End.

Var s, k: integer; Begin s := 1; for k := 4 downto 2 do s := s*2; write (s); End.

1
2
3
4
5
6
7

DIM k, s AS INTEGER
s = 1
FOR k = 4 TO 2 STEP −1
  s = s*2
NEXT k
PRINT s
END

DIM k, s AS INTEGER s = 1 FOR k = 4 TO 2 STEP −1 s = s*2 NEXT k PRINT s END