
16.11.2009, 01:46
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 130
Провел на форуме: 436500
Репутация:
11
|
|
Вот код подобной задачи на паскале. Выводит простые числа от 1 до 100 на экран. Доработаешь  удачи!
Код:
program z6;
var i,k,n: integer;
begin
for i:= 2 to 100 do begin
n:= 0;
k:= 1;
while(k<=i) and (n<3) do begin
if (i mod k) = 0 then n:= n+1;
k:= k+ 1;
end;
if n=2 then write(i,' ');
end;
readln
end.
|
|
|