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

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

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

    var s,a:string;
    i,d:integer;
    begin
    d:=0;
    write('Введите что угодно:');
    readln(s);
    for i:=1 to length(s) do
     d:=d+1;
    writeln('Длина строки:',d);
    a:=copy(s,3,4);
    writeln(a);
    end.

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

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

    uses crt;

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

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

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