• В PascalABC
    Напишите программу, которая выводит все простые числа в диапазоне от K до N ( 2 ≤ K ≤ N ≤ 100000 ), у которых первая и последняя цифры десятичной записи одинаковые.
    Входные данные
    Входная строка содержит два натуральных числа, разделённые пробелом, K и N ( 2 ≤ K ≤ N ≤ 100000 ).

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

    Примеры
    входные данные
    100 200
    выходные данные
    101 131 151 181 191
    входные данные
    20 30
    выходные данные
    0

Ответы 1

  • Program n1;var k,n,i: longint;co: byte;function simply(a: longint ):boolean;var i: longint;beginsimply:=true;for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then beginsimply:=false;breakendendend;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 begincr:=true;end;end;beginreadln(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) thenbeginwrite(i,' ');co:=1;endend;if co=0 then write(0);end.
    • Автор:

      diego960
    • 2 года назад
    • 13
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years