Определить значение переменной 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 3lt;gt;1) and (k mod 5lt;gt;2) 
       then n:=n+1;
Writeln(n);
readln;
end.
Ответы по завершению работы программ: а) n=234 , б)n=797