Якого значення набуде змінна s після виконання даної програми?

а.10
б.150
в.5
г.25

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.

Задание 1

Так как в записи числа может присутствовать цифра 7, то система счисления называется 7 + 1 = восьмеричной (3)

Задание 2

Так как в записи числа присутствует число 5, то данное число существует во всех системах счисления, больших 5, то есть 6, 7, 8, 9, 10 и так далее (1, 3 (какая там система счисления? - речная), 4)

Задание 3

101₂ = 100 + 1 = 11 + 1 + 1 = 10 + 1 + 1 + 1 = 1 + 1 + 1 + 1 + 1. Так как единица в двоичной системе равна единице в десятичной системе, то складываем и получаем ответ 5 (2)

Задание 4

Только над целыми (1)

Задание 5

a = 8;

b = 6 + 3 · a = 6 + 3 · 8 = 30

Так как нам нужно определить именно значение b, то вычислять значение переменной a не имеет смысла.

Задание 6

begin - оператор открытия основного блока, read - чтение значения переменных, wrircln - бред, а print - вывод (4)