Біркестелі деректер қорын құрудың қандай түрлері бар​

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

компьютер входит в состав технической системы.

компьютер является надсистемой для ос.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;