алгоритм далек от совершенства, медленный, но считает правильно. Паскаль
Объяснение:
var
col: integer;
i, k: longint;
del: boolean;
function prost(a: longint): boolean;
var c: integer;
begin
prost := a >= 2;
for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then prost := false;
end;
begin
i := 2;
col := 1;
repeat
del := (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0);
for k := 6 to i div 2 do if (prost(k) = true) and (i mod k = 0) then del := false;
if del then
begin
Write(i, ', ');
inc(col);
end;
inc(i);
until col > 1000;
end.
*прикрепил файл index.txt - поменяйте расширение на .html, также прикрепил картинку результата
<!doctype html>
<html lang='ru'>
<head>
<meta charset = 'utf-8'>
</head>
<body>
<table border='1'>
<tr>
<td colspan='2'><b><p align='center'>Разновидности корунда</b></td>
</tr>
<tr>
<td style='width: 85px;'><p align='center'>Рубин</p></td>
<td style='background: #f29fa7; width: 250px;'><p>Прозрачный красный корунд</p></td>
</tr>
<tr>
<td><p align='center'>Сапфир</p></td>
<td style='background: #a4edf4;'><p>Прозрачный корунд синего цвета</p></td>
</tr>
</table>
</body>
</html>
