Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
15 января 2023 09:15
490
Информатика: с клавиатуры вводится трехзначное число, найдите сумму цифр данного числа
1
ответ
Pascal ( //комментарии к программе, т.е. пояснение строки)
Var a,b,c,d:integer;
begin
Write('Введите трехзначное число'); read(a);
b:=a div 100; // число сотен
c:=a mod 100 div 10; // число десятков
d:=a mod 10; // число единиц
s:=b+c+d; // складываем цифры
Write('Сумма цифр трехзначного числа равна: ',s);
end.
Var a,b,c,d:integer;
begin
Write('Введите трехзначное число'); read(a);
b:=a div 100; // число сотен
c:=a mod 100 div 10; // число десятков
d:=a mod 10; // число единиц
s:=b+c+d; // складываем цифры
Write('Сумма цифр трехзначного числа равна: ',s);
end.
0
·
Хороший ответ
17 января 2023 09:15
Остались вопросы?
Еще вопросы по категории Информатика
Сколько символов содержит сообщение, записанное с помощью 16- символьного алфавита, если его объем составил 1/16 часть мегабайта?...
Назовите все способы восприятия информации...
Используя дополнительные источники, выясните, кто и когда предложил использовать знак @ в адресах электронной почты: Как называют этот знак в разных...
В поисках нужного файла Боб последовательно переходил из каталога в каталог, при этом он несколько раз поднимался на один уровень вверх и несколько ра...
Положение курсора в слове с ошибкой отмечено чертой: ДИАГРАММ|МА Чтобы исправить ошибку, следует нажать клавишу: 1)Delete 2)Backspace 3)Delete или...