С клавиатуры вводится целое положительное (может быть - вопрос №011274502 от DarthMalgus 06.06.2023 16:58

Question

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

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