Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 800 б
- Dwayne_Johnson 780 б
15 января 2023 09:15
336
Информатика: с клавиатуры вводится трехзначное число, найдите сумму цифр данного числа
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
Остались вопросы?
Еще вопросы по категории Информатика
Производительность работы компьютера (быстрота выполнения операций) зависит от 1) размера экрана 2) сопротивления сети 3) тактовой частоты процессо...
Цифровой вольтметр измеряет величину напряжения с точностью до 0,1 Вольта. Определите минимальное количество бит на каждое значение напряжения, если м...
Для полей однотабличной базы данных КОЛЛЕКЦИЯ (код, НАЗВАНИЕ ЭКСПОНАТА, АВТОР, МЕСТО ИЗГОТОВЛЕНИЯ , ГОД ИЗГОТОВЛЕНИЯ , ФИО ПРЕДЫДУЩЕГО ВЛАДЕЛЬЦА, ДАТА...
Задача 1. Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по канал...
Как представлено число 25 в двоичной системы счисления?...
Все предметы