Все целые положительные числа меньше 700 кратные 5 и не кратные 3 паскаль

Program z; var i,s: integer; begin s: =0; for i: =1 to 700 do begin if (i mod 5 = 0) and not(i mod 3 = 0) then s: =s+1; end; writeln(s); end.

Приоритеты операций:   ! инверсия значения & побитовое и ^ исключающее или | побитовое или 7(10) = 00111(2) 11(10) = 01011(2) 21(10) = 10101(2) 25(10) = 11001(2) 31(10) = 11111(2) 11 & 7 = 01011 & 00111 = 00011 11 & ! 7 = 01011 & 11000 = 01000 11 & 7 | 11 & ! 7 = 00011 | 01000 = 01011 11 & 7 = 01011 & 00111 = 00011 ! 11 & 7 = 10100 & 00111 = 00100 11 & 7 | ! 11 & 7 = 00011 | 00100 = 00111 7 & 31 = 00111 & 11111 = 00111 (7 & 31 | (11 & 7 | ! 11 & 7)) = 00111 | 00111 = 00111 25 & 31 = 11001 & 11111 = 11001 25 | 25 & 31 = 11001 | 11001 = 11001 (7 & 31 | (11 & 7 | ! 11 & 7)) & (25 | 25 & 31) = 00111 & 11001 = 00001 31^(11 & 7 | 11 & ! 7) = 11111 ^ 01011 = 10100 31^(11 & 7 | 11 & ! 7) ^ 21 = 10100 ^ 10101 = 00001 (7 & 31 | (11 & 7 | ! 11 & 7)) & (25 | 25 & 31) ^ 21 = 00001 ^ 10101 = 10100 31^(11 & 7 | 11 & ! 7) ^ 21 | (7 & 31 | (11 & 7 | ! 11 & 7)) & (25 | 25 & 31) ^ 21 = 00001 | 10100 = 10101 10101(2) = 21(10)

1. это в четверичной системе 1*16+4*3+2=30 2.                   1       7     3  +                         7     6 сумма     2     7     1 8 в нулевой степени -  6+3= 1 в следующий разряд и остаток 1 в этот 8 в первой  степени 7+7+1 (из нулевого разряда) = 1 в следующий разряд   и 7 остатка в этот 8 в квадрате - 1+1 (из первого разряда)=2