С клавиатуры вводятся два целых числа 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.
Не нашли ответ?
Похожие вопросы