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

[Студентик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