незнаю как назвать, найти количество чисел удалетворящих условию Опции

[compiler]

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

заранее благодарен

Добавлено через 1 мин.
моя программа

var 
	a,b,c,n:integer;
procedure q( var i,n:integer);
	Begin
		while n<>0 do begin
			i:=number mod 10;
			n:=n div 10;
		End; 
	end;
Begin
	for n:=99 to 1000 Do begin 

	
		a:=q(a,n);
		b:=q(b,n);
		c:=q(c,n);
		if (n=a*a*a+b*b*b+c*c*c) then writeln(n);
	end;
	read(a);
end.

[klem4]

По поводу твоей проги

а почему так не работает ошибка <<Incompatible types: got "untyped" expected "SmallInt">>

Ты еще пытаешься переменной присвоить значение которое возвращает .... процедура, а она ничего не возвращает, потомучто она не функция

А в приведенном мной коде все просто: Вместо того чтобы перебирать все числа от 100 до 999 и разбивать каждое на цифры, что ты пытаешься сделать, проще сделать 3 цикла, переменная первого цикла - первая цифра числа, второго - вторая, третьего - третья. Таким образом мы перебираем все возможноы комбинации от 100 до 999, в теле 3-го цикла, мы получаем значение числа с такими цифрами

Первая цифра умноженная на 100 + Вторая * 10 + Третья

В первой итерации это будет

1 * 100 + 0 * 10 + 0 = 100
И смотрим, равна ли она сумме кубов
1*1*1 + 0*0*0 + 0*0*0

[compiler]

все разобрался, спасибо...