следующая тема »

[10 Ноябрь 2025, 18:06:54]

Новости, реклама:

[10 Ноябрь 2025, 18:06:54]

Новости, реклама:

[Toreador]

Toreador ждём примеров на паскале и результатов. Уж больно интересно:)

1. споров тут нет, тут пока тока алгоритмы и код, мы ждем код от тебя...
ну и вообще говоря всё это мелочи, мы ждем от тебя код,
и дело наверное таже не в скорости, а в лаконичности и удобночитаемости

От меня? хм...  
И чего вы ожидаете?
Супер-мега кода... Нет ребята, Паскаль - это "начальный" язык. С него начинают практически все программисты... Ведь в основном суть то не втом какой язык круче, а в том как ты умеешь его использовать, вернее писать на нём массивные проги...
Превращать идею в алгоритм, а потом в программу...
Ладно вот вам простенький алгоритм нахождения простых чисел >255...

var
  a:array[1..32000] of integer;
  n,p,i,j,k:longint;

function prost(n:longint): boolean;
 var i,j:longint;
  begin
   j:=0;
 for i:=1 to n do
   if n mod i = 0 then j:=j+1;
     if j=2 then begin prost:=true; a:=n; end else prost:=false;
end;

 begin
  write('Vvedi granicu diapazona: '); readln(k);
for n:=1 to k do begin
    p:=n+1;
    while not prost(p) do p:=p+1;
  end;
a[1]:=1;
 for i:=1 to n do if (a<>0) then write(a:5);
end.

Можно усовершенствовать, упростить, но делал на скорую руку...
Теперь можете критиковать!........