Задача №2944. Сумма цифр
Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt. Первые тесты не всегда совпадают с примерами из условия.
Дано трехзначное число. Найдите сумму его цифр.
Пример
Ввод Вывод
179 17
Ответы на вопрос
Ответил ромашенция
0
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.
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.
Ответил kirilltyalo
0
спс
Ответил ussrex
0
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.
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.
Ответил kirilltyalo
0
спс
Ответил ussrex
0
Лучше, конечно, нажать кнопочку "Спасибо"б этого было бы достаточно )
Новые вопросы