Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Составные числа

Автор: Alyonka_v 31.12.2006, 09:11

Задача!!!
Напечатать все составные числа из диапазона[2;n].

Автор: Alyonka_v 31.12.2006, 12:41

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.

Добавлено @ 12:52
nemnogo oshiblasj
7) writeln('Vse sostavnye chisla [',n,';',k,']');

M
alexeis1

Модератор: выделяйте пожалуйста код http://forum.vingrad.ru/index.php?showtopic=126445

Использование транслита запрещается. Воспользуйтесь функцией автоперевода транслита в кирилицу установив галочку "транслит" (ниже смайликов)