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

Вот пример программы на языке Pascal ABC 1.8, которая выводит все простые числа в диапазоне от K до N, оканчивающиеся на цифру 3:

program PrimeNumbers;
var
  K, N, i, j, count: integer;
  isPrime: boolean;
begin
  readln(K, N);
  count := 0;
  
  for i := K to N do
  begin
    isPrime := true;
    
    // Проверяем, является ли число простым
    for j := 2 to trunc(sqrt(i)) do
    begin
      if i mod j = 0 then
      begin
        isPrime := false;
        break;
      end;
    end;
    
    // Проверяем, оканчивается ли число на цифру 3
    if (isPrime) and (i mod 10 = 3) then
    begin
      write(i, ' ');
      count := count + 1;
    end;
  end;
  
  // Если нет простых чисел, оканчивающихся на 3, выводим 0
  if count = 0 then
    write(0);
end.

Программа считывает значения K и N, а затем использует два вложенных цикла для проверки каждого числа в диапазоне от K до N. Внутренний цикл проверяет, является ли число простым, а затем проверяет, оканчивается ли оно на цифру 3. Если оба условия выполняются, число выводится на экран. Если нет простых чисел, оканчивающихся на 3, программа выводит число 0.