Из диапазона целых чисел выбрать все простые числа и вывести на печать

@Noopic · Регистрация: 13.06.2012

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

Множыны.Из диапазону целых чисел 1.256 выбрати все простые числа и вывести на печать.

@CodeR · 13.06.2012, 08:20

Pascal

Var i:integer;
Function Prostie(i:integer):boolean;
Var b:boolean;
    j:integer;
Begin
    j:=1;b:=true;
    While (j<i div 2)and(b) do
     Begin
      inc(j);
      if i mod j = 0 then b:=false;
     End;
    Prostie:=b;
End;
Begin
   For i:=1 to 256 do
    if Prostie(i) then write(i:4);
   readln;
End.

@Noopic · 25.06.2012, 21:40 **[ТС]**

Огромное спасиба очень помог....)

@Noopic 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 8
		1
	Из диапазона целых чисел выбрать все простые числа и вывести на печать 13.06.2012, 00:57. Показов 2226. Ответов 2 Метки нет (Все метки) Множыны.Из диапазону целых чисел 1.256 выбрати все простые числа и вывести на печать. 0

@Noopic 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 8
	25.06.2012, 21:40 [ТС]	3
	Огромное спасиба очень помог....) 0

Опции темы

Из диапазона целых чисел выбрать все простые числа и вывести на печать

Решение