Ymnichkaaaaaa
20.04.2023 10:58

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Big1fbfb
05.10.2020 11:18
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота