Ответы
Ответ дал:
0
//Pascal
var
i, k, j: byte;
begin
for i := 2 to 100 do
begin
k := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
k := k + 1;
if k = 0 then
write(i, ' ');
end;
end.
var
i, k, j: byte;
begin
for i := 2 to 100 do
begin
k := 0;
for j := 2 to i div 2 do
if i mod j = 0 then
k := k + 1;
if k = 0 then
write(i, ' ');
end;
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад