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

[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]

что значит <<Illegal assignment to for-loop variable "n">>

По ходу ты в своей проге передаешь переменную цикла FOR как VAR параметр и пытаешься ее изменить в подпрограмме, нельзя так ...

[compiler]

По ходу ты в своей проге передаешь переменную цикла FOR как VAR параметр и пытаешься ее изменить в подпрограмме, нельзя так ...

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

var 
	a,b,c,n:SmallInt;
procedure q( i,n:SmallInt);
	Begin
		while n<>0 do begin
			i:=n mod 10;
			n:=n div 10;
		End; 
	end;
Begin
	a:=0;
	b:=0;
	c:=0;
	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.
 

PS поставь пожалуйста коментарии к своей проги, я непонял с циклами...

Сообщение отредактировано: compiler - 24.03.2007 23:19