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

С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b. Pascal ABC функцией
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы