Ответы на вопрос:
Var s,n:integer;
Begin
write('4-х значное число: ');readln(n);
s:=(n mod 10)+(n div 10 mod 10)+(n div 100 mod 10)+n div 1000;
writeln('S = ',s);
readln;
End.
Объяснение:
Через Pascal
Популярно: Информатика
-
ryazanovaaaa1818.04.2020 18:07
-
kristavikown6tn20.04.2023 01:17
-
Iamjav14.05.2023 11:43
-
белка26328.01.2020 16:19
-
tetyanaostafi16.07.2022 05:05
-
wEnD1116.06.2021 22:42
-
arusy02.03.2020 08:58
-
swetik10119.06.2023 07:43
-
dftrek24.06.2023 04:12
-
Ксения22233213.01.2021 02:27