С клавиатуры вводится целое положительное (может - вопрос №112739340 от василий0086 10.04.2020 13:48

Question

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

василий0086 · Answer

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....