Delphi-Help

Главная Статьи Математика Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа

Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа

Оцените материал
(2 голосов)


Вывести на экран 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;
Прочитано 10104 раз
Другие материалы в этой категории: « Генератор случайных чисел Задача. Геометрия. »

Авторизация



Счетчики