• составить программу в паскале для поиска простых чисел в числовом промежутке от 1 до 100

Ответы 1

  • program abc;var  i, j:integer;  pr:boolean;begin  writeln('Простые числа в диапазоне от 1 до 100: ');  for i := 2 to 100 do  begin    pr := true;    for j := 2 to i div 2 do      if i mod j = 0 then      begin        pr := false;        break;      end;    if pr then      write(i, ' ');  end;  writeln;end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years