Разработать подпрограмму, которая в качестве аргумента получает целое число и проверяет, является ли оно простым. используя подпрограмму вывести на экран все простые числа из промежутка целых чисел, определенного пользователем. pascal abc

tatyankasas tatyankasas    1   26.09.2019 22:40    0

Ответы
danilkuznets01 danilkuznets01  08.10.2020 21:17
Function IsPrime(n:longint):boolean;
var
  found:boolean;
  p:longint;
begin
  if n<4 then IsPrime:=True
  else begin
    found:=(n mod 2=0);
    p:=3;
    while (not found) and (sqr(p)<=n) do
      begin found:=(n mod p=0); p+=2 end;
    IsPrime:=not found
    end
end;

var
  a,b,i:longint;
begin
  Write('Введите начало и конец интервала: ');
  Readln(a,b);
  for i:=a to b do
    if IsPrime(i) then Write(i,' ');
  Writeln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика