Задача №2944. Сумма цифр

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

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

Пример

Ввод Вывод

179 17

Question

Информатика

Евдокиюшка

30 октября, 13:07

Задача №2944. Сумма цифр

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

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

Пример

Ввод Вывод

179 17

+5

Ответы (2)

Знаешь ответ?

Васяня · Answer 1

Program vj;

var x, a, b, c, h:integer;

begin

writeln ('трёхзначное число');

readln (x);

a:=x div 100;

b:=x div 10 mod 10;

c:=x mod 10;

h:=a+b+c;

writeln (' Сумма цифр этого трёхзначного числа=', h)

end.

Анатолия · Answer 2

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.