Найти все трехзначные числа,равные сумме кубов своих цифр

@Катрин1406 · Регистрация: 02.05.2011

Author24 — интернет-сервис помощи студентам

Составить программу,используя оператор For.Найти все трехзначные числа,равные сумме кубов своих цифр.Учтите,что abc=100a+10b+c.

magirus · 07.05.2011, 09:53

Комментарий модератора

называйте темы информативно.

@SuPeR XaKer · 07.05.2011, 12:00

Pascal

var
 i: integer;
begin
for i:=100 to 999 do
if (sqr((i div 100))*(i div 100)+sqr(i div 10 mod 10)*(i div 10 mod 10)+sqr(i mod 10)*(i mod 10))=i then
 write(i:4,' ');
end.

Учтите,что abc=100a+10b+c

или надо циклами по трём цифрам?

@Катрин1406 · 07.05.2011, 14:14 **[ТС]**

да,по циклам!!спасибо,но мне этот отвер не подходит

@SuPeR XaKer · 07.05.2011, 14:18

Pascal

var
 i,o,j:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for o:=0 to 9 do
if i*i*i+j*j*j+o*o*o=i*100+j*10+o then
 write(i,j,o,' ');
end.

@Катрин1406 1 / 1 / 0 Регистрация: 02.05.2011 Сообщений: 16
		1
	Найти все трехзначные числа,равные сумме кубов своих цифр 07.05.2011, 02:12. Показов 7832. Ответов 4 Метки нет (Все метки) Составить программу,используя оператор For.Найти все трехзначные числа,равные сумме кубов своих цифр.Учтите,что abc=100a+10b+c. 0

@Катрин1406 1 / 1 / 0 Регистрация: 02.05.2011 Сообщений: 16
	07.05.2011, 14:14 [ТС]	4
	да,по циклам!!спасибо,но мне этот отвер не подходит 0

	07.05.2011, 14:18