Одной цепочкой, используя функцию удаления фрагментов из строки:
begin; 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации'.Remove(' ').Print; end.
Цикл (программа в новом стиле):
begin
var (s, t) := ('Информатика − наука, изучающая структуру, общие свойства и методы передачи информации', '');
for var n := 1 to Length(s) do
t += s[n] <> ' ' ? s[n] : '';
Print(t);
end.
Цикл (программа в старом стиле):
var
s, t: string;
n: integer;
s := 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации';
t := '';
for n := 1 to Length(s) do
if s[n] <> ' ' then
t := t + s[n];
write(t);
Одной цепочкой, используя функцию удаления фрагментов из строки:
begin; 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации'.Remove(' ').Print; end.
Цикл (программа в новом стиле):
begin
var (s, t) := ('Информатика − наука, изучающая структуру, общие свойства и методы передачи информации', '');
for var n := 1 to Length(s) do
t += s[n] <> ' ' ? s[n] : '';
Print(t);
end.
Цикл (программа в старом стиле):
var
s, t: string;
n: integer;
begin
s := 'Информатика − наука, изучающая структуру, общие свойства и методы передачи информации';
t := '';
for n := 1 to Length(s) do
if s[n] <> ' ' then
t := t + s[n];
write(t);
end.