Ответы на вопрос:
Program al; var s: string; i: integer; begin writeln('vvedite slovo '); readln(s); for i : = 1 to length(s) do if s[i]=s[1] then writeln(' v slove esti povtoriaiusciesia bukvi') else writeln( ' v slove net povtoriaiusciehsia bukv ' ); readln; end.
Объяснение:
16бит=2байта
2мб=2048кб
1гб=1024мбит
6байт=48 бит
1кб=1024 байт
100байт=800бит
64 бита=8 байтов
0.5кб=512 байт
Популярно: Информатика
-
0Assistant030.06.2023 15:03
-
bnmlkru21.08.2021 00:17
-
jsjdfjnids7363919.11.2022 06:44
-
max69809.12.2020 06:38
-
anjelanartokova07.06.2022 18:51
-
Блейк5129.05.2022 00:48
-
1972jkmxbr08.01.2023 18:06
-
Dan270726.12.2021 18:22
-
natulya2604.04.2023 18:10
-
Дарчик113.09.2021 01:05