Задача №2944. Сумма цифр
Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия.

Дано трехзначное число. Найдите сумму его цифр.

Пример


Ввод Вывод
179 17

спс

спс

Лучше, конечно, нажать кнопочку "Спасибо"б этого было бы достаточно )

program vj;var x,a,b,c,h:integer;beginwriteln('трёхзначное число');readln(x);a:=x div 100;b:=x div 10 mod 10;c:=x mod 10;h:=a+b+c;writeln(' Сумма цифр этого трёхзначного числа=',h)end.

program count;uses crt;var a,b,c,x:integer;begin clrscr;write('Введите 3-значное число: ');readln(x);a:=x div 100;b:= (x mod 100) div 10;c:= x mod 10;writeln('Сумма цифр числа ', x,' равна ', a+b+c);readln;end.