Advertisement
esvikey

04

Feb 18th, 2019
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. var i,d,e: integer;
  2. begin
  3. for i:=10 to 99 do begin
  4. d:=i div 10;
  5. e:=i mod 10;
  6. if 2*(e+d)=d*e then write(i, ' ');
  7. end;
  8. writeln;
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement