Question

Дано двузначное число.Определить,равен ли квадрат этого числа сумме квадратов его цифр - Pascal ABC

Answer 1

var
  a, n, n1: longint;

begin
  writeln('Введите n: ');
  readln(n);
  n1 := n;
  a := 0;
  while n <> 0 do
  begin
    a := sqr(n mod 10) + a;
    n := (n div 10);
  end;
  if sqr(n1) = a then writeln('Квадрат числа n равен сумме квадратов его цифр')
  else writeln('Квадрат числа n не равен сумме квадратов его цифр');
end.