С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.
Pascal ABC
функцией
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад