Задача: Дано 2-х значное число, опредилить равен ли квадрат этого чиста учетверенной...

Question

Задача: Дано 2-х значное число, опредилить равен ли квадрат этого чиста учетверенной сумме кубов его цифр. Вопрос: Как решить эту задачу в Free Pascal???

Answer 1

Var N, sum: integer;
begin
  write('Введите число: '); readln(N);
  sum := ((N div 10)*(N div 10)*(N div 10)+(N mod 10)*(N mod 10)*(N mod 10))*4;
  if sum = sqr(N) then writeln('Равно')
  else writeln('Не равно');
  readln;
end. 

Answer 2

 var a,a1,a2,k,l:integer;
 begin
writeln('Введите число а')
read(a);
a1:=a mod 10;
 k:=a div 10;
a2:=k mod 10;
k:=a*a;
l:=4*(a1*a1*a1+a2*a2*a2);
if (k=l) then
writeln('Равен')          
else writeln('Нет');
end.