Дано произвольная символьная строка.Узнать её длину и удалить 1,2 и 3 символ ивывести на экран.Pascal.
var
a: string;
begin
writeln('Введите строку');
readln(a);
writeln('Длина исходной строки равна: ', length(a));
Delete(a, 1, 3); //Удаляем из строки a 3 символа, начиная с 1 позиции
writeln('Полученная строка: ', a);
end.
vara:string;l:integer;beginreadln(a);l:=length(a);Delete(a, 1, 3);writeln('dlina=', l);writeln(a);end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.