Регистрация
aarzymova
27.12.2022 11:06
Информатика
Есть ответ 👍

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

230
373
Посмотреть ответы 2

Ответы на вопрос:

Cat6661313
Cat6661313
4,4(48 оценок)
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.
kirillshe2012
kirillshe2012
4,4(22 оценок)
Country: usa :                                                 russia:                                   info :     ; washington.txt                       info:                                   culture.txt                                         industry.txt ; culture.txt

Популярно: Информатика