Фаил, Задача Опции

[Студентик13]

Кто-нибудь объесните как составить эту прогу хоть алгаритмом помогите, ну а если не затруднит можно и кодом.
Задача вот
В интервале от 1 до N найти все числа М такие, что М нацело делится на М1, где М1 – число М, записанное в обратном порядке.

[Fang]

Вот набросал пример решения твоей задачи. Вроде правильно.

Код

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.

p.s. функция NumRevert переворачивает число

Сообщение отредактировано: Fang - 12.01.2006 16:36

[Fang]

Только при чем здесь "Файл" в названии темы?

[Студентик13]

Я же сказал ч то не очень понял задачу.Подумал что к файлам относится.Спасибо за КОД

[Гость]

функция 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;