Question

Определите значение переменной S после выполнения фраг-
мента программы. Ответ обосновать.
S:=0;
for i:= 1 to 4 do begin
k:=2
S := S*2;
for j:= 3 downto 2 do begin
while k < 3 do begin
S :=S+i+j+k;
k:=k+1
end;
end;

Answer 1

s=0

i=1

k=2

s=0*2=0

j=3

s=0+1+3+2=6

k=2+1=3

i=2

k=2

s=6*2=12

j=3

s=12+2+3+2=19

k=3

i=3

k=2

s=19*2=38

j=3

s=38+3+3+2=46

k=3

i=4

k=2

s=46*2=92

j=3

s=92+4+3+2=101

k=3

Ответ: 101.

P.S.

Ошибка в написании программы, которая путает.

Либо в конце написать еще один end;

Либо строчку

for j:= 3 downto 2 do begin

исправить на

for j:= 3 downto 2 do