Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project1;
- {$APPTYPE CONSOLE}
- uses
- SysUtils,
- Math;
- var
- Thousands, Hundreds, Decades, Units, Number: Integer;
- const
- TEN = 10;
- HUNDRED = 100;
- THOUSAND = 1000;
- var
- i, Am : integer;
- function IsThree(Value : integer): integer;
- var
- count : integer;
- begin
- count := 0;
- if (value div 100) mod 11 = 0 then
- begin
- if ((value div 100) div 11 = (value mod 100) div 10) or
- ((value div 100) div 11 = (value mod 100) mod 10) then
- IsThree := 1
- else
- IsThree := 0;
- end
- else
- if (value mod 100) mod 11 <> 0 then
- IsThree := 0
- else
- if ((value mod 100) div 11 = (value div 100) mod 10) or
- ((value mod 100) div 11 = (value div 100) div 10) then
- IsThree := 1
- else
- IsThree := 0;
- end;
- begin
- for i := 1 to 9999 do
- begin
- case i of
- 1 .. 9 : Am := Am + IsThree(i*1000);
- 10 .. 99 : Am := Am + IsThree(i*100);
- 100 .. 999 : Am := Am + IsThree(i*10);
- else
- Am := Am + IsThree(i);
- end;
- end;
- writeln('Amount :', Am + 1);
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement