Question

Определите что будет напечатано в результате выполнения программы
var s,k:integer;
begin
s:=1;
for k:=1 to 7 do
s:=s*2
writeln(s)
end.

Answer 1

Цикл выполняется от 1 до 7, следующим образом:

1. 1 * 2 = 2
2. 2 * 2 = 4
3. 4 * 2 = 8
4. 8 * 2 = 16
5. 16 * 2 = 32
6. 32 * 2 = 64
7. 64 * 2 = 128

Ответ: 128.