|
Помогите,пожалуйста, написать программу на Паскале: Замена в каждой строке заданного количества первых символов заданным текстом. Заранее спасибо.
|
|
|
|
var i,n,kol : integer;
str : string;
masiv : array of string;
begin
readln(n); // зчитуєм кількість строк
SetLength( masiv , n); // задаємо розмір динамічного масива ( нумерація починається з нуля )
for i := 0 to n-1 do readln( masiv ); // зчитуєм строки
readln(str); // текст на який будем замінять
readln(kol); // кількість елементів для заміни
for i := 0 to n-1 do
begin
//masiv := str + copy( masiv, length(str) + 1 , length( masiv ) - length( str ) ); // замінюємо перші символи на задані
masiv := str + copy( masiv, kol + 1 , length( masiv ) - kol ); // замінюємо задану кількість перших символів на задані
writeln( masiv );
end;
end.
Verhovny Menko
|
|
|
|
