В PascalABCНапишите программку, которая выводит все простые числа в спектре от
В PascalABC
Напишите программку, которая выводит все обыкновенные числа в спектре от K до N ( 2 K N 100000 ), у которых 1-ая и заключительная числа десятичной записи одинаковые.
Входные данные
Входная строчка содержит два естественных числа, разделённые пробелом, K и N ( 2 K N 100000 ).
Выходные данные
Программка обязана вывести все обыкновенные числа, у которых однообразные 1-ая и последняя цифры десятичной записи, в спектре от K до N в одну строчку, разделив их пробелами. Если таких чисел нет, необходимо вывести число 0.
Примеры
входные данные
100 200
выходные данные
101 131 151 181 191
входные данные
20 30
выходные данные
0
var k,n,i: longint;
co: byte;
function simply(a: longint ):boolean;
var i: longint;
begin
simply:=true;
for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin
simply:=false;
break
end
end
end;
function cr(a: longint): boolean;
var n: longint;
begin
n:=a;
cr:=false;
repeat
n:=n div 10;
until n mod 10 =n;
if n=(a mod 10) then
begin
cr:=true;
end;
end;
begin
readln(k,n);
for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then
begin
write(i,' ');
co:=1;
end
end;
if co=0 then write(0);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.