Дана
10-11 класс
|
строка, состоящая из слов, разделенных пробелами (одним или несколькими).
Вывести строку, содержащую эти же слова, разделенные одним пробелом
var
i:integer;
s,t:string;
f:boolean;
begin
writeln ('Введите строку');
readln(s);
f:=false;
for i:=1 to length(s) do
begin
if (f=false) or (s[i]<>' ') then
begin
t:=t+s[i];
if s[i]=' ' then
f:=true
else f:=false;
end;
end;
writeln(t);
end.
Другие вопросы из категории
Помогите, пожалуйста, совсем не понимаю, как доказывать истинно ли высказывание.
Читайте также
передавать эти данные по другой линии связи со скоростью 4 Мбит/с. Сколько секунд пройдет от начала приема данных по высокоскоростному каналу до полной передачи их по низкоскоростному каналу?
выходных данных: Необходимо вывести значение выражения
Входные данные: ввести одно целое положительное число a ((1<=a<=1000).
Выходные данные: вывести слово «true» если приведенное высказывание для предложенных исходных данных является истинным или «false» в противном случае.
пользователем, выделены полужирным шрифтом).
Вычисление объема параллелепипеда.
Введите исходные данные:
Длинна (см): 9
Ширина (см): 7.5
Высота (см): 5