Question

!Написать программу на языке паскаль ABC! Вводится целое положительное число. Найти число, которое равно сумме квадратов цифр исходного числа. Как можно быстрее и проще, заранее спасибо за помощь!

Answer 1

Пользуйся, не идеально конечно. Может что где подправишь, что где подвинешь, но работать должно

Answer 2

Конечно! Ниже представлена программа на языке Pascal ABC, которая выполняет указанную задачу:

pascalCopy code
program SumOfSquares;

uses ABC;

function SumOfSquaresOfDigits(num: integer): integer;
var
  digit, sum: integer;
begin
  sum := 0;
  while num > 0 do
  begin
    digit := num mod 10;
    sum := sum + digit * digit;
    num := num div 10;
  end;
  Result := sum;
end;

var
  inputNumber, resultNumber: integer;
begin
  WriteLn('Введите целое положительное число: ');
  ReadLn(inputNumber);

  if inputNumber <= 0 then
  begin
    WriteLn('Ошибка: Введите положительное число.');
    Exit;
  end;

  resultNumber := SumOfSquaresOfDigits(inputNumber);
  WriteLn('Число, равное сумме квадратов цифр исходного числа: ', resultNumber);
end.

Программа позволяет ввести целое положительное число, затем находит число, которое равно сумме квадратов его цифр и выводит результат на экран. Если введено некорректное число (менее или равно нулю), программа сообщит об ошибке.