Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 января 2023 23:57
1272
Дано четырехзначное число. Найти: сумму его цифр.
Написать программу на 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
Остались вопросы?
Еще вопросы по категории Информатика
Примером иерархической базы данных является а) Страница классного журнала б) Каталог файлов, хранимых на диске в) Расписание поездов г) Электронная...
Составить кроссворд из 10 терминов по информатике 7 класс...
Составить алгоритм на языке блок-схем для решения следующей задачи: определить, является ли прямоугольник с заданными сторонами квадратом....
Покупки Что нужно сделать: Составьте список покупок минимум из 5 пунктов. И проделайте следующие операции: 1.Добавьте еще один пункт 2.Замените 2...
A=[ 3, 5, 7, 6, 4, 2 ] n=A.index(2) Определите значение переменной n....
Все предметы 
