Помогите пожалуйста! Найти 100 первых простых чисел. Нарисовать блок-схему метода к

Помогите пожалуйста! Найти 100 первых обычных чисел. Нарисовать блок-схему метода к задаче

Задать свой вопрос
1 ответ
Напишу программку на паскале, блок схему нет способности нарисовать
P.S inc - это повышение переменной на единицу. Фортуны по иформатике)
_____________________________________________________________
var i, k, c, pr: int64;
 begin 
  k := 1;
  pr := 0;
  while pr lt; 100 do
begin c := 0;
    for i := 1 to k do begin
      if k mod i = 0 then inc(c) end;
    if c = 2 then begin write(k, ' ');
      inc(pr) end;
    inc(k) end;
end.

Павел Расхочиков
Единственное-тут выводит n обычных чисел
Петкундов Леонид
Все, поменял под Вас
Анжелика Поддувалова
спасибо, громадное
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт