Question

Задано натуральное число n. Вычислить сумму квадратов цифр заданного числа.Pascal.

Answer 1

Var
   n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
   Begin
   S:=S+Sqr(n mod 10);
   n:=n div 10
   End;
WriteLn('S = ',S);
End.

Answer 2

Я могу помочь вам с написанием кода на языке Pascal. Ваша задача состоит в том, чтобы вычислить сумму квадратов цифр заданного натурального числа n. Вот возможный алгоритм решения:

- Объявить переменные n, sum и digit типа integer. - Присвоить переменной sum значение 0. - Пока n больше 0, повторять следующие шаги: - Найти последнюю цифру n и присвоить ее переменной digit. - Прибавить квадрат digit к sum. - Удалить последнюю цифру n, разделив n на 10. - Вывести значение sum на экран.

Вот пример кода на языке Pascal, который реализует этот алгоритм:

program SumOfSquares;
var
  n, sum, digit: integer;
begin
  readln(n); // считать n с клавиатуры
  sum := 0; // инициализировать sum нулем
  while n > 0 do // пока n больше 0
  begin
    digit := n mod 10; // найти последнюю цифру n
    sum := sum + digit * digit; // прибавить квадрат цифры к sum
    n := n div 10; // удалить последнюю цифру n
  end;
  writeln(sum); // вывести sum на экран
end.

Надеюсь, это поможет вам решить вашу задачу. Удачи!