написать программу в паскале.
Удалить из строки все четырехбуквенные слова.
archery:
как разделяются слова?
Ответы
Ответ дал:
0
var
S: string;
i, k: integer;
b: boolean;
begin
readln(s);
var n := Length(s);
i := 1;
repeat
b := true;
while (i <= n) and (s[i] <> ' ') do
begin
if b then
begin
k := i;
b := false
end;
inc(i)
end;
if i - k = 4 then
begin
delete(s, k, 5);
i := k;
n := n - 5
end
else inc(i)
until i > n;
write(s)
end.
S: string;
i, k: integer;
b: boolean;
begin
readln(s);
var n := Length(s);
i := 1;
repeat
b := true;
while (i <= n) and (s[i] <> ' ') do
begin
if b then
begin
k := i;
b := false
end;
inc(i)
end;
if i - k = 4 then
begin
delete(s, k, 5);
i := k;
n := n - 5
end
else inc(i)
until i > n;
write(s)
end.
Ответ дал:
0
//PascalABC.NET 3.1 сборка 1200
const
wordl = 4;
begin
var s := ReadlnString('s = ');
var s1 := '';
var i := 1;
repeat
var t := pos(' ', s, i + 1);
if ((s[i] = ' ') or (i = 1))
and (((t = 0) and (Length(s) - i = wordl)) or (t - i - 1 = wordl))
then
i := i + wordl + 1
else begin
s1 := s1 + s[i];
i := i + 1;
end;
until i > length(s);
writeln(s1)
end.
const
wordl = 4;
begin
var s := ReadlnString('s = ');
var s1 := '';
var i := 1;
repeat
var t := pos(' ', s, i + 1);
if ((s[i] = ' ') or (i = 1))
and (((t = 0) and (Length(s) - i = wordl)) or (t - i - 1 = wordl))
then
i := i + wordl + 1
else begin
s1 := s1 + s[i];
i := i + 1;
end;
until i > length(s);
writeln(s1)
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
5 лет назад
7 лет назад