Вводим трехзначное натуральное число.Нужно найти сумму цифер этого числа — Pascal(Паскаль)

VAR
  x: integer;

BEGIN
  Readln(x);
  Writeln('Cумма цифр числа ', x, ' равна ',
    (x div 100) + ((x - (x div 100) * 100) div 10) + (x mod 10));

END.

Leave a Comment

23 − = 20