Берилген курылгылардын даму кезенине сайкес шыгу ретин аныктаныз. Аналитикалык, арифмометр, абак, амбебап есептеуиш машина керек. ​

русский

1 тюрьма

2 универсальных компьютера

3 Арифмометр

4 Аналитическая машина

казахский

1 абак

2Әмбебап есептеуіш машиналар

3 Арифмометр

4 Аналитикалық машина

Объяснение:

qbasic не знаю, знаю только вижуал бэйсик

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

поскольку язык не указан пишу в том который мне удобнее

def temp-table wares no-undo

  field ware as char

  field cost as dec extent 13

  field infl as dec.

def var i as int.

def var infl as dec.

input from data.txt.

repeat:

  create wares.

  import wares.

end.

input close.

do i = 2 to 13:

    infl=random(0.0005, 0.02).

  for each wares :

        wares.cost[i]=wares.cost[i-1]*(1+infl).

  end.

end.