с клавиатуры вводится 2 числа. если их сумма цифр равна четному числу, то найти квадрат разности, иначе найти разность кубов. Решить через язык программирования паскаль.
pascal
program SumDifference;
var
number1, number2, sum, difference: integer;
begin
// Ввод двух чисел с клавиатуры
write('Введите первое число: ');
readln(number1);
write('Введите второе число: ');
readln(number2);
// Вычисление суммы цифр обоих чисел
sum := CalculateSumOfDigits(number1) + CalculateSumOfDigits(number2);
// Проверка на четность суммы цифр
if sum mod 2 = 0 then
begin
// Если сумма цифр четная, находим квадрат разности чисел
difference := number1 - number2;
writeln('Квадрат разности: ', difference * difference);
end
else
begin
// Если сумма цифр нечетная, находим разность кубов чисел
difference := number1 * number1 * number1 - number2 * number2 * number2;
writeln('Разность кубов: ', difference);
end;
end.
pascal
function CalculateSumOfDigits(n: integer): integer;
var
digit: integer;
begin
Result := 0;
// Итеративно вычисляем сумму цифр числа
while n > 0 do
begin
digit := n mod 10; // Получаем последнюю цифру числа
Result := Result + digit; // Добавляем цифру к сумме
n := n div 10; // Убираем последнюю цифру числа
end;
end;
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет