оlesya
Опубликовано 6 лет назад по предмету Информатика от оlesya


решите задачу в паскале наити количество простых чисел из отрезка АВ

  1. Ответ
    Ответ дан antosha96

    var c,a,b,i,j,l:integer;begin cls;

     write('Введите через пробел отрезок'); read(a,b);  for i:=a to b+1 do  begin   j:=2;   l:=round(sqrt(i));   while (i mod j <> 0) and (j <= l) do                                       begin                                        inc(j);                                       end;    if (j > l) then                   begin                    write(c,' ');                    c:=i;                   end;  end;end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц