Вопрос по информатике:
С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.
Pascal ABC
функцией
Пожаловаться
- 22.05.2016 23:36
- Информатика
- remove_red_eye 11405
- thumb_up 40
Ответы и объяснения 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.
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.
Пожаловаться
- 23.05.2016 03:07
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы