Домашнє завдання
Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу
доку
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c, i:integer;
begin
ListBox1.Clear;
for i:=100 to 999 do
Begin
а:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
if i=a*a*a + b*b*b + c**с
then ListBox1.Items.Add(IntToStr(i));
End;
end;
153, 370, 371, 407
В период феодальной раздробленности — феодальныйвладетель графства, затем (с ликвидацией феодальной раздробленности) титул высшего дворянства. В качестве титула формально продолжает сохраняться в большинстве стран Европы с монархической формой правления.
В России титул введён Петром I(первым его получил в 1706 году Б. П. Шереметев). В конце XIX векаучтено свыше 300 графских родов. Графский титул в советской России был ликвидирован Декретом ВЦИК и Совнаркома от 11 ноября 1917 года.