Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 января 2023 23:57
1251
Дано четырехзначное число. Найти: сумму его цифр.
Написать программу на 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. В процессе преобразования растрового графического изображения количество цветов уменьшилось с 65536 до 16....
Функция F(n) задана следующими строками: F(n) = 1, если n F(n) = F(n – 1) + F(n – 2) + F(n – 3), если n > 3 и число n четное. Чему равно значение...
Что пропущено в ряду Символ - ... - строка фрагмент текста...
Лабораторная работа № 12
Создание запросов
1. Закладка Запросы/Создать/Конструктор.
2. В окне Добавление таблиц добавить обе та...
Сколько слов будет найдено в процессе автоматического поиска в предложении: «Далеко за отмелью, в ельнике, раздалась птичья трель», если в качестве об...
Все предметы 
