Ответы и объяснения

2013-11-16T09:12:32+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
  simple: array[1..10000] of integer;
  i, j, a, b, simple_n, s: integer;
  is_simple: boolean;

begin
  read(a, b);
 
  for i := 2 to b do begin
    is_simple := true;
    for j := 1 to simple_n do
      is_simple := is_simple and (i mod simple[j] <> 0);
    if is_simple then begin
      simple_n := simple_n + 1;
      simple[simple_n] := i;
      writeln(i);
      if i >= a then s := s + i;
    end;
  end;
 
  writeln(s);
end.