Программа: pascal abc. Задание: дана строка, написать программу, вставляющую после каждой точки символ пробела.
10-11 класс
|
var s: string;
i: integer;
begin
read(S);
i:=1;
while i<=length(s) do begin
if s[i]='.' then insert(' ',s,i+1);
inc(i);
end;
writeln(s);
end.
Другие вопросы из категории
<body bgcolor = "# F0FFFF">
<font color ="red" size="+4">
<center> <b>Потомки Владимира Мономаха </b></font>
</center>
<ol>
<li> <font color="yellow" size="+3">Мстислав(1132) </font>
<ol><li type ="circle"> Изяслав Волынский(1154)</li>
<ol><li type ="square"> <font color ="pink">Мстислав (1170)</li></font></ol>
<li type ="circle"> Всеволад Новгородский (1138)
<li type ="circle"> Растислав Смоленский (1168)
<ol><li type ="square"> Роман (1180)
<li type ="square">Рюрик (1215)
<li type ="square"> Давид (1197)
<li type ="square"> Мстислав Храбрый (1180)</ol></li>
а дальше не знаю ,помогите люди добрые
Читайте также
данным требованиям написать программу pascal
Дан двухмерный массив A[1..m,1..n]. Написать программу построения одномерного массива B[1..m], элементы которого соответственно равны суммам элементов строк.
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.