48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.
48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
begin
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.