нужно написать программу для нахождения суммы цифр любого трехзначного числа, вводимого с клавиатуры во время работы программы)) как это сделать с помощью mod или div без цикла???

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-04-04T16:01:30+04:00

var

  summ, c:integer;

begin

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

  summ := c mod 10 + (c div 10) mod 10 + c div 100;

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

end.