Question

Вывести простые числа в диапазоне от 1 до 100
(pascal)

Answer 1

//Pascal

var
  i, k, j: byte;
begin
  for i := 2 to 100 do
  begin
    k := 0;
    for j := 2 to i div 2 do
      if i mod j = 0 then
        k := k + 1;
    if k = 0 then
      write(i, ' ');
  end;
end.