Школьники участвуют в международном проекте, и оборудуют лабораторию наблюдения за неопознанными летающими объектами на крыше спорткомплекса. решено поднимать необходимое оборудование на специально созданной ими грузовой платформе. ее грузоподъемность ограничена, так как платформу собрали из старых узлов. на старых узлах не указаны их номиналы, поэтому рассчитать грузоподъемность не получилось. у есть только данные о пробных испытаниях.

платформа не сможет поднять три аккумуляторных блока вместе с двумя антенными модулями и пятью компьютерами, также она не выдержит одновременно двух аккумуляторных блоков и семи антенных модулей, но один аккумуляторный блок, 6 антенных модулей и 3 компьютера платформа поднимет.

необходимо определить сможет ли платформа поднять за один раз каждую из следующих партий груза:
1) одновременно 8 антенных модулей и 4 компьютера;
2) одновременно 4 аккумуляторных блока и 6 компьютеров;
3) одновременно 8 аккумуляторных блоков.

: определи, какие партии груза платформа сможет поднять за один раз, а какие — не сможет. поставь отметки в соответствующие ячейки таблицы.

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

По горизонтали:
1. Основное устройство ввода информации. 2. «Мозг» компьютера. 3. Устройство вывода информации. 4. Устройство хранения программ и данных. 5. Устройство для быстрого перемещения по экрану и выбора информации. 6. Устройство ввода, используемое для управления компьютером во время игры. 7. Другое название жёсткого диска. 8. Устройство, с которого можно вывести на бумагу тексты и рисунки.

По вертикали:
1. Основной инструмент сбора, хранения и переработки информации.

ответы на кроссворд Устройства компьютера:
По горизонтали: 1. Клавиатура. 2. Процессор. 3. Монитор. 4. Память. 5. Мышь. 6. Джойстик. 7. Винчестер. 8. Принтер.
По вертикали: 1. Компьютер.