Advertisement
Guest User

Untitled

a guest
Nov 14th, 2018
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.12 KB | None | 0 0
  1. program n40;
  2.   var i : integer;
  3. begin
  4.   for i:=100 to 999 do
  5.     if ((i mod 100) * 7) = i then
  6.       writeln(i);
  7. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement