PROGRAM Primer_1;
var i,k,s,p,n: Integer;
BEGIN
Write(' M '); Readln(m);
For i:=1 to M do
begin
s:=0; k:=i; n:=0;
While k<>0 do
begin k:=k DIV 10; n:=n+1 end;
k:=i;
While k<>0 do
begin p:=k MOD 10; k:=k DIV 10;
If p<>0 then s:=Trunc (s+Exp(n*Ln(p)))
end;
If s=f then WriteLn (f)
end;
END.
FOR?
FOR?
WHILE REPEAT?
?
?
, .
, .
"Repeat A Until B" While.
: n. :
1. ;
2. ;
, n. :
3.x ( x - n )( x - 2 n )( x - 3 n )( x - n2 );
4. ;
Книги-online
;
;
;
;
;
;
=
;
=
;
=
;
. . , , .