Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа
procedure TForm1.Button1Click(Sender: TObject);
var
n, summ: integer;
begin
summ:=0;
n:=strtoint(Edit1.Text);
if (n>99) and (n<1000) then
while n<>0 do
begin
summ:=summ+(n mod 10);
n:=n div 10;
end;
if sqr(n)=summ*summ*summ then
Label1.Caption:='1'
else
Label1.Caption:='0';
end; |