Дано произвольная символьная строка.Узнать её длинну и копировать из строки S 3 символа начиная с позиции 4.

Есть ответ
17.12.2022
144

Ответ


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.


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.