Ответы на вопрос:
const b = 'байт'; var l,i,s : integer; begin l : = length(b); s : = 0; for i : = 1 to l do s : = s +ord(b[i]); writeln (s); end.
Популярно: Информатика
-
blowwwwwwww23.03.2021 16:21
-
kate65303.03.2021 03:44
-
nigaic10.02.2023 13:31
-
саша547926.12.2022 03:04
-
nik771009.04.2023 18:29
-
lera106615.04.2020 02:52
-
sumochkaaaaa30.04.2021 04:56
-
Валерия00332212.02.2023 16:37
-
Вишенка20052306.09.2022 10:04
-
егор67304.02.2023 19:37