Ответы на вопрос:
var s,a: string; i,d: integer; begind: =0; write('введите что угодно: '); readln(s); for i: =1 to length(s) do d: =d+1; writeln('длина строки: ',d); a: =copy(s,3,4); writeln(a); end.
Популярно: Информатика
-
fghqwert12.05.2021 01:04
-
SaintRomik21.08.2021 14:31
-
ПолинаПадафет1526.05.2021 14:20
-
Kamilla147227.06.2022 19:15
-
1Asya11114.12.2020 20:34
-
tarabrinadasha08.09.2022 04:25
-
Ертилеу25.11.2020 23:36
-
alyamirnaya2816.05.2022 16:45
-
guna314.03.2023 03:25
-
BlaBla55202.03.2023 02:36