Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа

@sinlerks · Регистрация: 22.02.2013

Author24 — интернет-сервис помощи студентам

Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа.

@КонецСвета · 07.05.2013, 23:03

Pascal

uses crt;
var i: integer;
 
function IsSimple (x: integer): boolean;
var j,k: integer;
begin
k:=0;
for j:=2 to x div 2 do
    if x mod j=0 then inc(k);
IsSimple:=k=0;
end;
 
begin
for i:=100 to 999 do
    if IsSimple(i) then write(i,' ');
end.

@sinlerks 0 / 0 / 0 Регистрация: 22.02.2013 Сообщений: 22
		1
	Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа 07.05.2013, 16:54. Показов 3066. Ответов 1 Метки нет (Все метки) Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа. 0

	07.05.2013, 23:03

Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа

Решение