Цитата:
Сообщение от Alena O.
4. В интервале от 1 до N найти все числа M такие, что M нацело делится на M1, где M1 – число M, записанное в обратном порядке.
|
Код:
VAR
N,M,M1:LongInt;
Function Rev(M:LongInt):LongInt;
var
S,S1:String;
i:Byte;
Code:Integer;
begin;
STR(M,S);
S1:=S;
for i:=1 to length(S) do
S1[i]:=S[length(S)-i+1];
VAL(S1,Rev,Code);
end;
BEGIN
Write('N= ');
ReadLn(N);
For M:=1 to N do
begin
M1:=Rev(M);
If (M mod M1)=0 then write(M:8);
end;
Writeln;
Writeln('Calculation complete');
Readln
END.