Определить значение переменной n после выполнения фрагмента алгоритма
а) n:=0;
нц для k от 1 до 1000
| если mod(k, 30) =1 или mod(k, 5) =2
| | то n:=n+1
| все
кц б) n:=0;
нц для k от 1 до 1000
| если не div(k, 3) =1 и не mod(k, 5) =2
| | то n:=n+1
| все
кц

а)var n,k:integer;begin for k:=1 to 1000 do     if (k mod 30=1) or (k mod 5=2)       then n:=n+1;Writeln(n);readln;end.б)var n,k:integer;beginfor k:=1 to 1000 do      if (k div 3<>1) and (k mod 5<>2)        then n:=n+1;Writeln(n);readln;end.Ответы по завершению работы программ: а) n=234 , б)n=797