Какое значение переменной s будет напечатано после выполнения фрагмента программы на бейсике? s=1 for n=1 to 3 s=s*n next n print s

1цикл. 1*1=1 2 цикл. 1*2=2 3цикл.2*3= 6 ответ. 6

Var months: array [1..12] of string;       x: integer; begin   months[1] : = 'january';   months[2] : = 'february';   months[3] : = 'march';   months[4] : = 'april';   months[5] : = 'may';   months[6] : = 'june';   months[7] : = 'july';   months[8] : = 'august';   months[9] : = 'september';   months[10] : = 'october';   months[11] : = 'november';   months[12] : = 'december';   read(x);   if ((x < 1) or (x > 12)) then begin       write('error! ');   end else begin       write(months[x]);   end; end.

Const nn=50; var a: array [1..nn,1..nn] of integer; maxi,maxj,mini,minj,i,j,n,m: integer; begin writeln('введите кол-во строк и столбцов массива: '); readln(n,m); for i: = 1 to n do   for j: = 1 to m do   begin       write('a[',i,',',j,']= ');       readln(a[i,j]);   end; writeln; writeln('получившийся массив: '); for i: = 1 to n do   begin       for j: = 1 to m do           write(a[i,j]: 4);       writeln;   end; maxi: =1; maxj: =1; mini: =1; minj: =1; for i: = 1 to n do   for j: = 1 to m do   begin       if a[i,j]> a[maxi,maxj] then       begin           maxi: =i;           maxj: =j;       end       else if a[i,j]< a[mini,minj] then       begin           mini: =i;           minj: =j;       end;   end; writeln; writeln('получившийся массив: '); i: =a[maxi,maxj]; a[maxi,maxj]: =a[mini,minj]; a[mini,minj]: =i; for i: = 1 to n do   begin       for j: = 1 to m do           write(a[i,j]: 4);       writeln;   end; end.