• Дано произвольная символьная строка.Узнать её длину и удалить 1,2 и 3 символ ивывести на экран.Pascal.

Ответы 2

  • var

      a: string;

      

    begin

      writeln('Введите строку');

      readln(a);

      writeln('Длина исходной строки равна:  ', length(a));

      Delete(a, 1, 3);  //Удаляем из строки a 3 символа, начиная с 1 позиции

      writeln('Полученная строка: ', a);

    end.

    • Автор:

      roxie
    • 6 лет назад
    • 0
  • vara:string;l:integer;beginreadln(a);l:=length(a);Delete(a, 1, 3);writeln('dlina=', l);writeln(a);end.

    • Автор:

      gordon
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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