Дано произвольная символьная строка.Узнать её длину и удалить 1,2 и 3 символ ивывести на экран.Pascal.
Дано произвольная символьная строка.Узнать её длину и удалить 1,2 и 3 символ ивывести на экран.Pascal.
Гость
Ответ(ы) на вопрос:
Гостьvar a: string; begin writeln('Введите строку'); readln(a); writeln('Длина исходной строки равна: ', length(a)); Delete(a, 1, 3); //Удаляем из строки a 3 символа, начиная с 1 позиции writeln('Полученная строка: ', a); end.
Гостьvar
a:string;
l:integer;
begin
readln(a);
l:=length(a);
Delete(a, 1, 3);
writeln('dlina=', l);
writeln(a);
end.
Не нашли ответ?
Похожие вопросы