Question

Определите значение переменной s после выполнения фрагмента алгоритма s:=0 нц для I=1 до 6
s:=s+3*i

Answer 1

var i,s: integer;

begin

s:=0;

For i:=1 to 6 do

s:=s+3*i; {3*1+3*2+3*3+3*4+3*5+3*6}

Write(s); {63}

end.