Вывести все натуральные числа из отрезка [M,N], сумма делителей которых равна сумме делителей числа, записанного теми же цифрами в обратном порядке. Использовать процедуру (функцию) нахождения суммы делителей числа.
Вот что у меня вышло
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | {$APPTYPE CONSOLE}
uses
SysUtils;
Procedure del( k:integer;d:real);
var i,p:integer;
begin
d:=K+1;
p:=k div 2;
for i:=2 to p do
if ((k mod i)=0) then d:=d+i;
end;
var k,m,n,i,s:integer;d,t:real;
begin
writeln('k,m,n');
readln(k,m,n);
for i:=m to n do
begin
del(k,d);
del(i,t);
if d=t then write(i,' ');
end;
readln;
end.
|
Не могу выполнить вот это условие -"записанного теми же цифрами в обратном порядке."
11.01.2010, 18:45
ПРОЦЕДУРЫ И ФУНКЦИИ
Линейный вид
