Question

Напишите программу, которая выводит все простые числа в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 ), оканчивающиеся на цифру 3. входные данные: входная строка содержит два натуральных числа, разделённые пробелом, k и n ( 2 ≤ k ≤ n ≤ 100000 ). программа должна вывести все простые числа, оканчивающиеся на цифру 3, в диапазоне от k до n в одну строку, разделив их пробелами. если таких чисел нет, нужно вывести число 0. например входные данные : 15 22; выход: 0. программа в паскале abc 1.8

Answer 1

Program n1;
function pr(a:longint ):boolean;
var i: longint;
begin
if a<2 then pr:=false
else
begin
pr:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then pr:=false;
end;
end;
var k,n,x: longint;
b: boolean;
begin
b:=false;
readln(k,n);
if (k>=2) and ( n>=k) and (n<=100000) then for x:=k to n do if (x mod 10=3) and (pr(x)=true) then
begin
b:=true;
write(x,' ');
end;
if b=false then writeln(0);
end.