Показать сообщение отдельно

  #4  
Старый 16.11.2009, 01:46
Linkus
Участник форума
Регистрация: 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.
 
Ответить с цитированием