var
a: 1000..9999; //четырехзначное число
a1, a2, a3, a4: 1..9; {цифры четырехзначного числа (цифры могут быть только от 1 до 9 в десятичной системе счисления)}
begin
writeln('Введите четырехзначное число');
readln(a); //Вводим четырехзначное число
a1:= a div 1000; {Находим первую цифру, для этого делим это число без остатка на 1000 (например пусть число будет 5479, тогда получится 5479 / 1000 = 5,479; отбрасываем остаток и получается 5)}
a2:= (a mod 1000) div 100; {Находим вторую цифру, для этого сначала берем остаток от деления этого числа на 1000, а потом делим результат на 100 без остатка (5479 / 1000 = 5,479; оставляем остаток, получается 479; 479 / 100 = 4,79 ; отбрасываем остаток и получается 4)}
a3:= (a mod 100) div 10; {Находим 3 цифру, для этого сначала берем остаток от деления этого числа на 100, а потом делим результат на 10 без остатка (5479 / 100 = 54,79; берем остаток и получается 79; 79 / 10 = 7,9 ; отбрасываем остаток и получается 7)}
a4:= a mod 10; {Для нахождения 4 цифры берем остаток от деления этого числа на 10 (5479 / 10 = 547,9 ; берем остаток и получается 9)}
writeln('Сумма цифр числа ', a, ' равна: ', a1 + a2 + a3 + a4); {Выводим сумму цифр}
end.
Если все правильно, отметь решение как лучшее)
К середине 3-го тыс. до н. э. клинопись, использовавшаяся теперь как минимум для шумерского и аккадского языков, развилась в более-менее стабильную словесно-слоговую систему, включавшую около 600 знаков, для которых была характерна как полифония, так и омофония. В последующие века все 600 знаков никогда не использовались одновременно в одном месте, и в каком-то смысле дальнейшая история клинописи — это история выборок форм знаков и их значений, в зависимости от времени, места и жанра, с добавлением некоторых значений и неиспользованием многих других, упрощением отдельных знаков и формированием характерных местных пошибов.
