Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
15 января 2023 09:15
356
Информатика: с клавиатуры вводится трехзначное число, найдите сумму цифр данного числа
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. Web-страницы имеют расширение: а) *.htm; б) *.txt; в) *.web; г) *.exe; д) *.www. 2. Для подключения к сети надо иметь ... а) модем; б) принтер; в)...
ПОМОГИТЕ ПОЖАЛУЙСТА! ТЕСТ ПО ИНФОРМАТИКЕ-ФАЙЛЫ! 1-Выберите правильное имя файла 3:LIST.EXE IN3:.TXT в345.BMP SPRAVKI 2- Путь к файлу.............
Все предметы