Никандрович 24 октября 2019 в 12:15
Напишите программу на Паскале, которая выводит все простые числа в диапазоне от K до N ( 2 ≤ K ≤ N ≤ 100000 ), оканчивающиеся на цифру 3.
Примеры
входные данные
2 30
выходные данные
3 13 23
Напишите программу на Паскале, которая выводит все простые числа в диапазоне от K до N ( 2 ≤ K ≤ N ≤ 100000 ), оканчивающиеся на цифру 3.
Примеры
входные данные
2 30
выходные данные
3 13 23
Var
k,n,x,d: integer;
begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
begin
d := 2;
while x mod d lt;gt; 0 do d := d + 1;
if x = d then write(x, );
end;
end.
k,n,x,d: integer;
begin
read(k,n);
for x := k to n do
if x mod 10 = 3 then
begin
d := 2;
while x mod d lt;gt; 0 do d := d + 1;
if x = d then write(x, );
end;
end.
Компьютеры и вычисления
186
49
Для комментирования необходимо зарегистрироваться на сайте