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