profile
Опубликовано 4 года назад по предмету Информатика от malashik35

Множество А содержит все нечетные числа из диапаазона от 1 до 200
Множесто В - простые числа из этого же диапазона.
Определить дополнение множества В до множества А.

Задачка на Паскале.

  1. Ответ
    Ответ дан archery
    var i, j, simple_n, res_n : integer;
    Res, Simple: array[1..100] of integer;
    Found:boolean;
    Begin
     
      for i := 2 to 200 do begin
        found := false;
        for j := 1 to simple_n do
          found := found or (i mod Simple[j] = 0);
         
        if found and (i mod 2 = 1) then begin
          res_n := res_n + 1;
          Res[res_n] := i;
          writeln('Res = ',Res[res_n]:4);
        end;
       
        if not found then begin
          simple_n := simple_n + 1;
          Simple[simple_n] := i;
          writeln('Simple = ',Simple[simple_n]:4);
        end;
      end;
     
      for i := 1 to res_n do
        write(Res[i]:4);
    End.