Question about Computers & Internet
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 PROGRAM ArmstrongNumber
Posted on Dec 30, 2008
Could you give me more info plz
Posted on Jul 30, 2008
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).
click here to download the app (for users in the US for now) and get all the help you need.
Posted on Jan 02, 2017
Tips for a great answer:
Oct 05, 2015 | Armstrong Plumbing
Oct 03, 2015 | Armstrong Cars & Trucks
Mar 02, 2015 | Music
Jun 27, 2014 | Music
Apr 30, 2011 | Armstrong Tool Armstrong S25 BF InLine...
Jan 15, 2011 | Armstrong H 67 1PH Bf In Line Circulator...
182 people viewed this question
Usually answered in minutes!