Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
15 января 2023 09:15
572
Информатика: с клавиатуры вводится трехзначное число, найдите сумму цифр данного числа
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 Гб = ? Мбайт 1 Кбайт = ? бит...
Что такое диада, триада и тетрада. сколько двоичных разрядов они в себя включают?...
1. Телекоммуникация – это… а) общение между людьми через телевизионные мосты; б) общение между людьми через телефонную сеть; в) обмен информацией на...
ОЧЕНЬ СРОЧНО Проанализируйте адреса следующих документов: 1) http://inf.1 september.ru/2007/11/01.htm 2) http://fipi.ru/view/sections/218/docs/515.htm...
В каком из условных операторов допущена синтаксическая ошибка? 1. if B = then Writeln ('Деление на ноль невозможно'); 2. if a > b then max:= a els...