Предмет: Информатика,
автор: Viккi
найти сумму цифр четырёхзначного числа
Ответы
Автор ответа:
0
var n,a,b,c,d,s:integer;
begin
write('n='); readln(n); {n - даанное 4-хзначное число}
a:=n mod 10; {последняя, 4-я, цифра числа}
b:=(n div 10) mod 10; {предпоследняя, 3-я, цифра}
c:=(n div 100) mod 10; {2-я цифра}
d:=n div 1000; {1-я цифра}
s:=a+b+c+d;
writeln('s=',s);
end.
Интересные вопросы
Предмет: Другие предметы,
автор: Ulianaj
Предмет: Қазақ тiлi,
автор: ainashkank
Предмет: Алгебра,
автор: ceeekola
Предмет: Химия,
автор: Ксюшкакрфмли
Предмет: Геометрия,
автор: Наточка