Question

Помогите решить задачку Pascal Ввести целое положительное число и определить верно ли что сумма его цифр больше 15

Answer 1

Var n,sum: integer;
begin
read(n);
while (n>0) do begin
 sum:=sum+(n mod 10);
 n:=n div 10;
end;
if (sum>15) then write('Верно') else write('Неверно');
end.

Answer 2

Конечно, я могу помочь с написанием программы на Pascal для решения данной задачи. Вот пример кода:

program SumOfDigits;

var
  num, originalNum, digitSum: integer;

begin
  // Вводим целое положительное число
  write('Введите целое положительное число: ');
  readln(num);

// Сохраняем оригинальное значение числа
  originalNum := num;

// Инициализируем сумму цифр
  digitSum := 0;

// Вычисляем сумму цифр числа
  while num > 0 do
  begin
    digitSum := digitSum + (num mod 10);
    num := num div 10;
  end;

// Проверяем условие, сумма цифр больше 15
  if digitSum > 15 then
    writeln('Сумма цифр числа ', originalNum, ' больше 15.')
  else
    writeln('Сумма цифр числа ', originalNum, ' не больше 15.');

readln;
end.

В этой программе мы используем переменные `num` для ввода числа, `originalNum` для сохранения оригинального значения, и `digitSum` для хранения суммы цифр. Затем мы используем цикл `while` для разбиения числа на цифры и вычисления их суммы. После этого мы проверяем условие, больше ли сумма цифр 15, и выводим соответствующее сообщение.