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.
Поделитесь своими знаниями, ответьте на вопрос:
Определите значение переменной s после выполнения фрагмента алгоритма s:=0 нц для I=1 до 6 s:=s+3*i
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.