Вопрос по информатике:
Паскаль! Помогите пожалуйста! Free Pascal 2.6.4
Напишите программу, которая выводит все простые числа, у которых цифры стоят строго в порядке убывания, в диапазоне от K до N ( 2 ≤ K ≤ N ≤ 100000 ).
Входные данные
Входная строка содержит два натуральных числа, разделённые пробелом, K и N ( 2 ≤ K ≤ N ≤ 100000 ).
Выходные данные
Программа должна вывести все простые числа, у которых цифры стоят строго в порядке убывания, в диапазоне от K до N в одну строку, разделив их пробелами. Если таких чисел нет, нужно вывести число 0.
Примеры
входные данные
400 600
выходные данные
421 431 521 541
входные данные
100 200
выходные данные
0
- 19.07.2018 12:15
- Информатика
- remove_red_eye 11572
- thumb_up 41
Ответы и объяснения 1
function isprost(x: integer): boolean;
var i: integer;
begin
if x<2 then isprost:=false else
begin
isprost:=true;
for i := 2 to round(sqrt(x)) do if x mod i = 0 then isprost:=false;
end;
end;
function islow(x: integer): boolean;
var n1,n2: integer;
begin
islow:=false;
n2:=x mod 10;
x:=x div 10;
n1:=x mod 10;
x:=x div 10;
while (n1>n2) and (x0) do begin
n2:=n1;
n1:=x mod 10;
x:=x div 10;
end;
if n1>n2 then islow:=true;
end;
var k,n,i,f: integer;
begin
readln(k,n);
f:=-1;
for i:=k to n do if isprost(i) and islow(i) then
begin
write(i,' ');
f:=1;
end;
if f=-1 then write(0);
end.
- 20.07.2018 02:00
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.