Задача no 2944 сумма цифр

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

Ответы

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.

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.

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

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

Ввод Вывод
179 17

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.

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.

Вопрос по информатике:

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

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

Ввод Вывод
179 17

Ответы и объяснения 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.

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.

Знаете ответ? Поделитесь им!

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

• Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
• Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
• Писать без грамматических, орфографических и пунктуационных ошибок.

Этого делать не стоит:

• Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
• Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
• Использовать мат — это неуважительно по отношению к пользователям;
• Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.