Составить программу в паскале удалить все пробелы в строке
Составить программу в паскале
удалить все пробелы в строке
Гость
Ответ(ы) на вопрос:
Гостьprogram znanija;
var s,r:string;
i:integer;
begin
Read(s);
for i:=1 to length(s) do
begin
if s[i] <> ' ' then r:=r+s[i];
end;
Writeln(r);
end.
Один из вариантов решения
Не нашли ответ?
Похожие вопросы