У исполнителя Бета две команды, которым присвоены номера:
1 прибавь b
2 умножь на 2
(b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на экране на b, а
выполняя вторую, умножает это число на 2 Программа для исполнителя Бета – это последовательность
номеров команд. Известно, что программа 21212 переводит число 10 в число 128 Определите значение b.

Автор

100 слов для студента

Абзац

100 слов для студента

Аудитория

100 слов для студента

100 слов для студента

Белорусский

100 слов для студента

Беседа

100 слов для студента

Беседовать

100 слов для студента

Библиотека

100 слов для студента

Брать

100 слов для студента

Будущий

100 слов для студента

Важный

100 слов для студента

Вариант

100 слов для студента

Ведомость

100 слов для студента

Век

100 слов для студента

Великий

100 слов для студента

Вернуть

100 слов для студента

Вести

100 слов для студента

Взять

100 слов для студента

Внимание

100 слов для студента

Вопрос

100 слов для студента

Время

100 слов для студента

Объяснение:

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
  if n<4 then Result:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
  Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
  if n<4 then res:=True
  else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
  var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
  var k:=0;
  var prime:boolean;
  foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
  Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4