Определить значение переменной 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;
begin
for 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