Дано натуральное число. Верно ли, что сумма цифр данного числа больше А(А вводится с...

Question

Дано натуральное число. Верно ли, что сумма цифр данного числа больше А(А вводится с клавиатуры). Напишите программу Pascal, пожалуйста!

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('Введите число');
  var a:=ReadInteger('a=');
  var s:=0;
  while n>0 do begin s+=n mod 10; n:=n div 10 end;
  if s>a then Write('Верно') else Write('Неверно');
  Writeln(', что сумма цифр числа больше ',a)
end.

Тестовое решение
Введите число 46823
a= 24
Неверно, что сумма цифр числа больше 24

Comments

Огромное спасибо! Я очень Вам благодарна.

---

Пожалуйста. Но достаточно было кнопочки

---

Не думаю.

---

Плохо. Если вопрос корректный и ответы правильные, то такой вопрос принимается в архив. При этом модераторы ВРУЧНУЮ по одному удаляют комментарии. Кнопочка "Спасибо" сделана, чтобы снизить модераторам объем работы.

---

Для обмена мнениями существуют личные сообщения))))

---

Спасибо за осведомлённость) Жаль, но модераторам придётся удалить ещё один комментарий( ...