С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.

Pascal ABC

функцией

Question

Информатика

Галиха

27 июня, 05:56

С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.

Pascal ABC

функцией

+4

Ответы (1)

Знаете ответ на вопрос?

Оксана · Answer 1

Procedure Prost (A:integer) ;

Var

C, D:integer;

Begin

D:=0;

For C: = 2 to A do

if A mod C = 0 then D:=D+1;

if D=1 then Write (A,' ')

End;

Var A, B:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

For B: = A to B do

Prost (B) ;

End.

С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.Pascal ABCфункцией

С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.

Pascal ABC

функцией