Главная » Pascal, Исходники, Разное » Простые числа
Дек
04

Простые числа

Найти все простые числа из интервала 1000..9999, у которых сумма первой и второй цифры равна сумме третьей и четвертой цифры.

[sourcecode highlight=»31″ language=»pascal»]
Uses Crt;
Const
D: Array[1..4] of Byte = (1, 3, 7, 9);
Var
a, b, c, i, x, q: Integer;
n: Word;

begin
ClrScr; q:=0;
for i:=1 to 4 do
for c:=0 to 9 do
if (D[i]+c) mod 3 = 0 then
for a:=1 to 9 do
begin
b:=D[i]+c-a;
if b in [0..9] then
begin
n:=((10*a+b)*10+c)*10+D[i];
x:=7;
While (Sqr(x) >= n) and (n mod x 0) do
Inc(x, 2);
if (n mod x 0) then
begin
Write(n,’ ‘);
Inc(q);
end;
end;
end;
Writeln; Write(‘Total: ‘,q); Readln;
end.
{ prepared special for www.kpeople.ru by AlexeyJava }
[/sourcecode]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.