Вопрос по информатике:
PASCAL.ФУНКЦИИ.С клавиатуры вводятся два целых числа a и b. Найти и вывести на экран все простые числа, лежащие в диапазоне от a до b.
- 04.03.2018 14:55
- Информатика
- remove_red_eye 15150
- thumb_up 22
Ответы и объяснения 1
Function prost(a:integer):boolean;
Var i:integer;
Begin
prost:=true;
for i:= 2 to a-1 do
if (a mod i) = 0 then
Begin
prost:=false;
break;
end;
End;
Var
i,a,b:integer;
Begin
write('Введите диапозон чисел (a,b) ');
Readln(a,b);
if a>b then write('Неверный диапозон') else
for i:= a to b do
if prost(i) then write(i,' ');
End.
- 06.03.2018 00:27
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.