Question

Паскаль. проверить равно ли целое трехзначное число а сумме кубов своих цифр​

Answer 1

program programone;

var

a,ed,des,sot:Integer;

begin

ReadLn(a);

sot:=a div 100;

des:=(a mod 100) div 10;

ed:=a mod 10;

if ed*ed*ed+des*des*des+sot*sot*sot=a then

WriteLn('Число равно сумме кубов своих цифр')

else

WriteLn('Число не равно сумме кубов своих цифр');

end

Answer 2

Для того чтобы проверить, является ли целое трехзначное число "а" равным сумме кубов своих цифр, нужно выполнить следующие шаги:

1. Разбить число "а" на отдельные цифры.
2. Возвести каждую цифру в куб.
3. Найти сумму кубов полученных цифр.

Если полученная сумма равна исходному числу "а", то число удовлетворяет условию задачи.

Давайте напишем программу на языке Паскаль, чтобы выполнить эту проверку:

pascalCopy code
program CheckCubeSum;

var
  a, num, digit, cubeSum: integer;

begin
  writeln('Введите трехзначное число "а": ');
  readln(a);

  // Проверяем, является ли число "а" трехзначным
  if (a < 100) or (a > 999) then
  begin
    writeln('Число не является трехзначным.');
    exit;
  end;

  num := a;
  cubeSum := 0;

  // Вычисляем сумму кубов цифр числа "а"
  while num > 0 do
  begin
    digit := num mod 10;
    cubeSum := cubeSum + digit * digit * digit;
    num := num div 10;
  end;

  // Проверяем, равна ли сумма кубов цифр числа "а" исходному числу "а"
  if cubeSum = a then
    writeln('Число "а" равно сумме кубов своих цифр.')
  else
    writeln('Число "а" НЕ равно сумме кубов своих цифр.');
end.

При выполнении программы, она попросит вас ввести трехзначное число "а" и сообщит, является ли оно равным сумме кубов своих цифр или нет.