Кто-нибудь объесните как составить эту прогу хоть алгаритмом помогите, ну а если не затруднит можно и кодом.
Задача вот
В интервале от 1 до N найти все числа М такие, что М нацело делится на М1, где М1 – число М, записанное в обратном порядке.
Полная версия: Фаил
Вот набросал пример решения твоей задачи. Вроде правильно.
p.s. функция NumRevert переворачивает число
Код
uses crt;
var
n,i: integer;
function NumRevert(x:integer):integer;
var
s: string;
f: char;
i: byte;
z,code: integer;
begin
str(x,s);
for i:=1 to length(s) div 2 do
begin
f:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=f;
end;
val(s,z,code);
NumRevert:=z;
end;
begin
ClrScr;
write('Enter n: ');readln(n);
for i:=1 to n do
if i mod NumRevert(i) = 0 then writeln(i);
readln;
end.
var
n,i: integer;
function NumRevert(x:integer):integer;
var
s: string;
f: char;
i: byte;
z,code: integer;
begin
str(x,s);
for i:=1 to length(s) div 2 do
begin
f:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=f;
end;
val(s,z,code);
NumRevert:=z;
end;
begin
ClrScr;
write('Enter n: ');readln(n);
for i:=1 to n do
if i mod NumRevert(i) = 0 then writeln(i);
readln;
end.
p.s. функция NumRevert переворачивает число
Только при чем здесь "Файл" в названии темы?
Я же сказал ч то не очень понял задачу.Подумал что к файлам относится.Спасибо за КОД 
Цитата(Fang @ 12.01.2006 12:35)
функция NumRevert переворачивает число
Это можно сделать без перевода в строку...function revert(x: longint): longint;
var res: longint;
begin
res := 0;
while x > 0 do begin
res := res * 10 + (x mod 10);
x := x div 10;
end;
revert := res;
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.