Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №17-4 / 17-4 / zadanie_4
.pas program Zadanie_4;
var
Pr,A: set of 1..20;
i,j: byte;
begin
Pr:=[];
A:=[2..20];
for i:=20 downto 2 do
for j:=2 to i-1 do
if i mod j=0 then Pr:=Pr+[i];
Pr:=A-Pr;
writeln ('‡ зҐЁп Ё§ ¬®¦Ґбмў Pr:');
for i:=1 to 20 do
if i in Pr then
write (i,' ');
readln ();
end.
var
Pr,A: set of 1..20;
i,j: byte;
begin
Pr:=[];
A:=[2..20];
for i:=20 downto 2 do
for j:=2 to i-1 do
if i mod j=0 then Pr:=Pr+[i];
Pr:=A-Pr;
writeln ('‡ зҐЁп Ё§ ¬®¦Ґбмў Pr:');
for i:=1 to 20 do
if i in Pr then
write (i,' ');
readln ();
end.