1.С клавиатуры вводится слово,распечатать все его буквы через пробел.(после последней буквы пробела быть не должно). 2.Написать программу,которая удаляет первое слово из строки введенной с клавиатуры и вместо него вставляет зад...
1.С клавиатуры вводится слово,распечатать все его буквы через пробел.(после последней буквы пробела быть не должно).
2.Написать программу,которая удаляет первое слово из строки введенной с клавиатуры и вместо него вставляет заданное.
Гость
Ответ(ы) на вопрос:
Гость1)
var
a:string;
i,n:integer;
begin
readln(a);
n:=length(a);
for i:=1 to n do
write(' ',a[i]);
end.
2)
var
a,b:string;
i,n,d:integer;
begin
Writeln('введите строку');
readln(a);
n:=length(a);
d:=pos(' ',a);
Delete(a, 1,d-1);
writeln('введите слово для замены');
readln(b);
Insert(b, a,1);
writeln;
writeln(a);
end.
Не нашли ответ?
Похожие вопросы