⇢ ЮЭ
Юрий Эртелев
написать программу, удаляющую из строки S все пробелы. Вывести преобразованную строку на экран на. паскаль.... помогите
Вывести преобразованную строку на экран на. паскаль... помогите
СП
Сергей Повар
var
s: string;
c: integer;
begin
write('string? ');
readln(s);
for c := 1 to length(s) do if s[c] = ' ' then delete(s, c, 1);
writeln('result: ', s);
end.
Похожие вопросы