Задача на нахождение составных чисел, цикл Опции

[Aljonka]

Напечатать все составные числа в интервале [2;n]

[Lapp]

Напечатать все составные числа в интервале [2;n]

Что ты хочешь - алгоритм или реализацию? Впрочем, в любом случае сначала нужен алгоритм..
У тебя есть свои соображения? или, может, уже начала делать прогу? Покажи свои успехи. Тут помогут..

[Aljonka]

vsjo poluchilosj...

uses crt;
var n,k,i,j,kl:integer;
begin
clrscr;
writeln('Vvedite pervoe i poslednee chislo (vozmozhno[2;n])');
readln(n,k);
writeln('Vse slozhnye chisla [',n,';',k,']');
for i:=n to k do
begin
kl:=0;
for j:=2 to round(sqrt(i)) do
if (i mod j)=0 then
kl:=kl+1;
if kl<>0 then
writeln(i,'');
end;
readln;
end.

[Aljonka]

nemnogo oshiblasj
7) writeln('Vse sostavnye chisla [',n,';',k,']');