Язык программирования бейсик . кто может найти ошибку в моем решении : "напишите программу, которая находит кол-во чисел, кратных 3, но не кратных 6, в последовательности заданных чисел. программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность кол-во чисел не превышает 1000. введенные числа по модулю не превышают 30000." решение: 10 cls 20 for i=1 to 1000 30 input "введите число"; a(i) 40 if a(i)=0 then m=i and 60 50 next i 60 for i=1 to m 70 if a(i) mod 3 = 0 and a(i) mod 6 < > 0 then s=s+1 80 next i 0 print s 100 end заранее

вот так должно быть 

5 dim a(1000)

40 if  a(i)=0 then m=i: go to 60  

 

90 print s

1) ( (x ∈ p) /\ (x ∈ а)) → ( (x ∈ q) /\ (x ∈ а)) = 1 -( (x ∈ p) /\ (x ∈ а)) \/ ( (x ∈ q) /\ (x ∈ а)) = 1 (убрали стрелочку) -(x ∈ p) \/  -(x ∈ а) \/ ((x ∈ q) /\ (x ∈ а)) = 1 (правило де моргана) -(x ∈ p) \/  ∈ а) \/ (x ∈ q)) /\ ∈ а) \/ (x ∈ а)) = 1 -(x ∈ p) \/  -(x ∈ а) \/ (x ∈ q) = 1 x ∈ (-p u q u -a) = 1 т.е. -p u q u -a = (-infinity; +infinity) -p u q = (-infinity; 39) u (58; +infinity) нужно чтоб -а покрыло оставшийся кусок [39; 58] т.е. а не должно содержать [39; 58] из предложенных это 1)  [5, 20] 2) алфавит из 18 символов, log(18)/log(2) = 4.16992500144231 {округляем до целого} ~= 5 бит на символ вес номера байт = 5бит * 6 / 8 = 3.75 байт {округляем до целого} ~= 4 байт 400 * 4 байт = 1600 байт 3) комбинаторика - размещение с повторениями n - кол-во элементов в наборе (у нас 4) k - кол-во мест (у нас 5 и 6) количество размещений с повторениями = `a(k,n) = n^k `a(5, 4) + `a(6, 4) = 4^5 + 4^6 = 5 120

1vars: string; i: integer; beginreadln(s); for i: =2 to length(s)-2 do  if (s[i-1]+s[i]+s[i+1]+s[i+2]=' не ') then s[i+1]: ='и'  else if ((s[i-1]+s[i]+s[i+1]='не ') and (i=2)) then s[i]: ='и'    else if ((s[i]+s[i+1]+s[i+2]=' не') and (i=length(s)-2)) then s[i+2]: ='и'; write(s); end. 2vars: string; i, k: integer; beginreadln(s); for i: =2 to length(s)-1 do  if s[i-1]+s[i]+s[i+1]=' в ' then inc(k)  else if ((s[i-1]+s[i]='в ') or (s[i-1]+s[i]='в ')) and (i=2) then inc(k); write(k); end.если есть вопросы, пишите в лс : )