Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
15 января 2023 09:15
437
Информатика: с клавиатуры вводится трехзначное число, найдите сумму цифр данного числа
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
Остались вопросы?
Еще вопросы по категории Информатика
Что будет выведено на экран после выполнения фрагмента программы? s = 'фоксфорд' s1 = 'крокодил' s = s[:4] + 'т' + s1[1:3] + 'т'; print(s)...
Назовите все способы восприятия информации...
A=[ 13, 5, 17, 6 ] n=A.index(minA)) Определите значение переменной n....
помогите срочно!...
1. Каково происхождение термина «презентация»? 2. Какая информация может быть размещена на слайде презентации? 3. Что общего в технологиях гипертекст...