fork download
copy 
  1. program ideone;
  2. var i,k:integer;
  3.     a,b:byte;
  4. begin
  5. k:=0;
  6. i:=999;
  7. while i<9999 do
  8.  begin
  9.   i:=i+1;
  10.   a:=i div 100  mod 10;
  11.   b:=i div 10 mod 10;
  12.   if(i mod 45=0)and(((a=9)and(b=7))or((a=7)and(b=9))) then
  13.    begin
  14.     writeln(i);
  15.     k:=k+1;
  16.    end;
  17.  end;
  18. write('Всего чисел=',k);
  19. end.
Success #stdin #stdout 0s 280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2790
2970
6795
6975
Всего чисел=4
https://ideone.com/Md7kXC
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!