• 
  • 23 January 2021
  Информатика
  • Автор: jioo568

  

  Напишите программу,которая считает сумму цифр введенного числа (паскаль)
  
  Programи fr;
  var a, sum: integer;
  Begin
  Writeln ('Введите число');
  Readln (a);
  while a<>0 do
  begin
  sum:=sum+(a mod 10);
  a:=a div 10;
  end;
  Writeln ('Сумма цифр ',sum);
  end.
  
  Почему используется вот такая запись ( что это значит ) - sum:=sum+(a mod 10) ???
  
  Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)
  
  Заранее СПАСИБО

• 
  • 23 January 2021
  • Ответ оставил: elenaklon

  var a,s:integer;

  begin

  write ('Введите число: ');

  readln(a);

  repeat

  s:=s+a mod 10;

  a:=a div 10

  until a=0;

  write ('Сумма цифр: ',s);

  end.

  a mod 10 - эта операция определяет последнюю цифру числа (остаток от деления на 10)

  первоначально sum равно 0

  sum:=sum+(a mod 10) - накапливаем сумму всех цифр поочерёдно

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (23.02.2025) наш сайт содержит 16354 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы