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

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

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

Пример

Ввод Вывод

179 17

Question

Информатика

Савин

26 мая, 16:22

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

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

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

Пример

Ввод Вывод

179 17

+1

Ответы (2)

Знаете ответ на вопрос?

Созон · Answer 1

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.

Евника · Answer 2

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.