Program S8;
Var
i,j : integer;
//*******************************
Function verif(a,b:integer) : boolean;
Var
x,y : integer;
Begin
x := a Div 10 + (a Mod 10)*10;
y := b Div 10 + (b Mod 10)*10;
verif := a*b=x*y;
End;
//*******************************
Begin
For i:=10 To 99 Do
For j:=i To 99 Do
If verif(i,j) Then
writeln(i,' ',j);
End.
Inscription à :
Publier les commentaires (Atom)
