Определить значение переменной n после выполнения фрагмента алгоритма а) n:=0; нц для k...

Question

Определить значение переменной 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
| все
кц

Answer 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