Задать вопрос Регистрация
Помочь другим

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

Ответы 2

  • 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.

    • Автор:

      stella
    • 6 лет назад
    • 0

  • Исправим ошибки в коде выше.

    uses crt;

    var s:string;beginwrite('Введите строку:');read(s);writeln('Длина строки:',length(s));writeln(copy(s,4,3));end.

    Вот так работает корректней.

    • Автор:

      liduvina
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years