Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Дано двузначное число. Определить , равен ли квадрат этого числа учетверенной сумме кубов его цифр.
60 БАЛОВ!!!

Ответ оставил Гость

Var
  d1,d2,n:integer;
  k,s:longint;
begin
  Write(Введите натуральное двухзначное число: ); Read(n);
  d1:=n div 10; d2:=n mod 10;
  k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));
  Write(n,: );
  if k=s then Writeln(Квадрат числа (,k,
      ) равен учетверенной сумме кубов его цифр)
  else Writeln(Квадрат числа (,k,
      ) не равен учетверенной сумме кубов его цифр (,s,))
end.

Тестовое решение:
Введите натуральное двухзначное число: 48
48: Квадрат числа (2304) равен учетверенной сумме кубов его цифр

Введите натуральное двухзначное число: 47
47: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)

Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))