Определите, что будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык Бейсик Паскаль
алг
нач
цел s, k
s := 2
нц для k от 1 до 3
s := s*s
кц
вывод s
кон
s = 2
FOR к = 1 TO 3
s = s*s
NEXT k
PRINT s
END
Var s, k: integer;
Begin
s := 2;
for k := 1 to 3 do
s := s*s;
write (s);
End.
Алгоритмический язык Бейсик Паскаль
алг
нач
цел s, k
s := 2
нц для k от 1 до 3
s := s*s
кц
вывод s
кон
s = 2
FOR к = 1 TO 3
s = s*s
NEXT k
PRINT s
END
Var s, k: integer;
Begin
s := 2;
for k := 1 to 3 do
s := s*s;
write (s);
End.
Answers & Comments
Verified answer
Var s, k: integer;Begin
s := 2;
for k := 1 to 3 do
s := s*s;
write (s);
End.
s = 2 k = 1
s = s * s
2 * 2 = 4
s = 4 k = 2
s = s * s
4 * 4 = 16
s = 16 k = 3
s = s * s
16 * 16 = 256
256