profile
Опубликовано 6 лет назад по предмету Информатика от vadik12

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

  1. Ответ
    Ответ дан sansanic

    var

      a: string;

      

    begin

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

      readln(a);

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

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

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

    end.

  2. Ответ
    Ответ дан glebglebgleb

    var
    a:string;
    l:integer;
    begin
    readln(a);
    l:=length(a);
    Delete(a, 1, 3);
    writeln('dlina=', l);
    writeln(a);
    end.

Самые новые вопросы