Задание:
Множество А содержит все нечетные числа из диапаазона от 1 до 200Множесто В — простые числа из этого же диапазона. Определить дополнение множества В до множества А. Задачка на Паскале.
Решение:
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.
Знаете другой ответ?