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

Ответы 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.
    • Автор:

      aussie
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years