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

Question

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

Comments

Функцией обязательно?

---

да,или процедурой , для 8 класса

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.