<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var (p,q,s):=(1,2,0); var k:=0; Write('(1,5) '); for var i:=3 to 1000 do begin var (flag,j,r):=(True,2,Round(Sqrt(i))); while flag and (j<=r) do if i mod j = 0 then flag:=false else j+=1; if flag then begin (p,q,s):=(q,s,i); if q-p=4 then Write('(',p,',',q,') ') else if s-p=4 then Write('(',p,',',s,') ') end end end.
Массив представляет собой совокупность данных одного типа с общим для всех элементов именем.
Элементы массива пронумерованы, и обращаться к каждому из них можно по номеру. Номера элементов массива иначе называются индексами, а сами элементы массива - индексированными переменными.
<span>x = (input("Введіть число з 0 и 1:")) nul = [] one = [] new = x.split('0') nul.append(new) newn = x.split('1') one.append(newn) print(nul) print(one)</span>