Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
14 января 2023 23:57
1011
Дано четырехзначное число. Найти: сумму его цифр.
Написать программу на Pascal'е
1
ответ
var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
0
·
Хороший ответ
16 января 2023 23:57
Остались вопросы?
Еще вопросы по категории Информатика
постройте граф отражающий отношение между следующими обьектами: компьютер, процессор, память, устройство ввода , внутренняя память, внешняя память , о...
сколько битов в 1 байте? сколько байтов в слове бит? сколько битов в слове байт? 1 килобайт---это 1000 байтов или 8 битов или 1024 бита или 1024 байта...
1.Растровый графический файл, содержащий черно-белый рисунок, имеет объем 300 байт. Какой размер может иметь рисунок в пикселях?...
Помогите, пожалуйста. Как посчитать сумму и количество цифр в строке на Python'e? К примеру, Input: ABC23G5. Output: 3 10...
Определите значения переменных a и b после выполнения программного кода: s='Никогда не ошибается тот, кто ничего не делает.' с=s[2:4]+s[5]...
Все предметы 
