# Armstrong problem program logic for armstrong program

Posted by on

• Level 1:

An expert who has achieved level 1.

• Contributor

PROGRAM ArmstrongNumber
IMPLICIT NONE

INTEGER :: a, b, c ! the three digits
INTEGER :: abc, a3b3c3 ! the number and its cubic sum
INTEGER :: Count ! a counter

Count = 0
DO a = 0, 9 ! for the left most digit
DO b = 0, 9 ! for the middle digit
DO c = 0, 9 ! for the right most digit
abc = a*100 + b*10 + c ! the number
a3b3c3 = a**3 + b**3 + c**3 ! the sum of cubes
IF (abc == a3b3c3) THEN ! if they are equal
Count = Count + 1 ! count and display it
WRITE(*,*) 'Armstrong number ', Count, ': ', abc
END IF
END DO
END DO
END DO

END PROGRAM ArmstrongNumber

Posted on Dec 30, 2008

• Level 1:

An expert who has achieved level 1.

Hot-Shot:

An expert who has answered 20 questions.

Corporal:

An expert that hasĀ over 10 points.

Mayor:

An expert whose answer gotĀ voted for 2 times.

• Contributor

Posted on Jul 30, 2008

Hi,
A 6ya expert can help you resolve that issue over the phone in a minute or two.
Best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
The service is completely free and covers almost anything you can think of (from cars to computers, handyman, and even drones).
Good luck!

Posted on Jan 02, 2017

×

my-video-file.mp4

×

## Related Questions:

### ArMstrong model eg6g75dc10-4 serial A11148KNA

That unit is not even listed on Armstrong website.

Oct 05, 2015 | Armstrong Plumbing

### Did Louis Armstrong ever own a selma k modified trumper serial number 24362?

Check with the Louis Armstrong fan club I am sure they will have the answer you seek www.fanpop.com/clubs/louis-armstrong

Jun 27, 2014 | Music

### Where is the reset button for the armstrong circulating pumup s 25 bf located?

Hi,
There is no reset... if you have power and it is not running then the pump is toast...

replace it...

heatman101

Apr 30, 2011 | Armstrong Tool Armstrong S25 BF InLine...

### I want first 20 Armstrong numers

1
2
3
4
5
6
7
8
9
153
370
371
407
1634
8208
9474
54748
92727
93084
548834

Jan 06, 2011 | Computers & Internet

### Remote control for Armstrong minisplit

You may be able to get any make of remote universal remote control and program it to operate your systems.

Mar 01, 2010 | RCA Universal Remote Control

## Open Questions:

#### Related Topics:

182 people viewed this question

Level 3 Expert

Level 3 Expert