Предмет: Информатика,
автор: M7A7K7
1.С клавиатуры вводится слово,распечатать все его буквы через пробел.(после последней буквы пробела быть не должно).
2.Написать программу,которая удаляет первое слово из строки введенной с клавиатуры и вместо него вставляет заданное.
umka0812:
Відповідь обовязково сьогодні потрібна чи можна написати завтра?
На Паскалі підійде?
да,паскаль
сегодня надо
На JavaScript смог бы написать... а вот на паскале, подожди немножко
а, не.... только js .... паскаль не идет у меня)
очень жаль
Ответы
Автор ответа:
1
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: aabba07
Предмет: Французский язык,
автор: ggghhhjjjkkk838
Предмет: Другие предметы,
автор: arinapozitiv72
Предмет: Химия,
автор: Oladushek647
Предмет: Химия,
автор: anna3158gh