Есть список игрушек, некоторые из которых имеются в трёх детских садах. Определить игрушки из списка: 1) которых нет ни в одном из детсадов; 2) которые есть в каждом из детсадов (на языке Паскаль).

Можно завести три массива: для первого, второго и третьего детских садов. Для каждой игрушки из общего списка проверяем, есть ли она в каждом массиве.

Пример программы на Паскале:

program Toys;
var
  all, a, b, c: array[1..100] of integer;
  n, n1, n2, n3, i: integer;

function Has(x: integer; arr: array of integer; k: integer): boolean;
var j: integer;
begin
  Has := false;
  for j := 0 to k - 1 do
    if arr[j] = x then Has := true;
end;

begin
  { Ввод: n, затем список all; n1 и список a; n2 и список b; n3 и список c }
  writeln('Нет ни в одном детсаду:');
  for i := 1 to n do
    if (not Has(all[i], a, n1)) and (not Has(all[i], b, n2)) and (not Has(all[i], c, n3)) then
      writeln(all[i]);

  writeln('Есть в каждом детсаду:');
  for i := 1 to n do
    if Has(all[i], a, n1) and Has(all[i], b, n2) and Has(all[i], c, n3) then
      writeln(all[i]);
end.

Игрушки удобнее задавать числами: например, \(1\) — мяч, \(2\) — кукла, \(3\) — конструктор.

0 0 Пожаловаться