Используя функцию INSERT и POS , в данной строке,содержащей два слова, разделённых запятой, добавить пробел после запятой.
5-9 класс
|
var
i: integer;
s: string;
begin
write('Введите два слова через запятую : ');
read(s);
for i := 1 to length(s) do
if s[i] = ',' then insert(' ', s, pos(',', s) + 1);
writeln(s);
end.
Другие вопросы из категории
уведомлений ???????
Читайте также
написать в PascalABC.
тока дана строка символов, длина которой не превышает 255.
2)дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку
3)дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее конца
4)дана строка S в которой есть одна открывающаяся скобку и одна закрывающаяся скобку Удалить все символы между этими скобками
дана строка, содержащая текст. найти длину самого короткого и самого длинного слов.
дана строка, содержащая символ ";". подсчитать кол-во символов до нее и после