Question

С клавиатуры вводится целое положительное (может быть равно 0) число B, не превышающее 30 000. Напиши программу, которая считает и выводит на экран сумму цифр числа B. (для паскаля)

Answer 1

Ответ:

var B, s: integer;

begin

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

 read(B);

 s := 0;

 while B > 0 do

 begin

   s := s + B mod 10;

   B := B div 10;

 end;

 writeln('Сумма цифр числа равна ',s);

end.

Answer 2

Здравствуйте, это Bing. Я могу помочь вам написать программу на языке Паскаль, которая считает и выводит на экран сумму цифр числа B. Вот примерный алгоритм решения задачи: - Объявить переменную B типа integer и считать ее значение с клавиатуры. - Объявить переменную S типа integer и присвоить ей значение 0. Эта переменная будет хранить сумму цифр числа B. - Пока B больше 0, повторять следующие действия: - Найти остаток от деления B на 10. Это будет последняя цифра числа B. - Прибавить этот остаток к S. - Разделить B нацело на 10. Это уберет последнюю цифру из числа B. - Вывести значение S на экран. Вот пример кода на языке Паскаль, который реализует этот алгоритм: ```pascal program SumOfDigits; var B, S: integer; begin readln(B); // считать значение B с клавиатуры S := 0; // присвоить S значение 0 while B > 0 do // пока B больше 0 begin S := S + (B mod 10); // прибавить к S остаток от деления B на 10 B := B div 10; // разделить B нацело на 10 end; writeln(S); // вывести значение S на экран end. ``` Надеюсь, это поможет вам решить задачу. Удачи! ????