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:
May 13, 2014 | Computers & Internet
Dec 01, 2013 | The Learning Company Logical Journey of...
Feb 27, 2011 | Microsoft Mlf Visual Studio Enterprise...
May 31, 2010 | Microsoft Visual FoxPro Professional...
Oct 21, 2009 | Computers & Internet
Jan 21, 2009 | Microsoft Visual Basic Professional...
May 08, 2008 | Computers & Internet
Feb 04, 2008 | Computers & Internet
Jan 11, 2008 | Computers & Internet
Dec 07, 2007 | Computers & Internet
180 people viewed this question
Usually answered in minutes!