Предмет: Информатика,
автор: ekrep53
[PASKAL] Составить программу вычеркивания из текста всех пробелов
Помогите решить задачу !
Ответы
Автор ответа:
0
var
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
end.
Пример входных данных: Мама мыла раму
Пример выходных данных: Мамамылараму
s: string;
i: integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i] = ' ' then
delete(s, i, 1);
writeln(s);
end.
Пример входных данных: Мама мыла раму
Пример выходных данных: Мамамылараму
Автор ответа:
0
Спасибо огромное !))))
Автор ответа:
0
//Pascal ABC.NET v3.0 сборка 1111
Var
s:string;
begin
readln(s);
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
writeln(s);
end.
Пример ввода:
Cat is fine too
Пример вывода:
Catisfinetoo
Var
s:string;
begin
readln(s);
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
writeln(s);
end.
Пример ввода:
Cat is fine too
Пример вывода:
Catisfinetoo
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: Алгебра,
автор: BassMusicGames
Предмет: Биология,
автор: antoncedenov
Предмет: Математика,
автор: HamsterHanter