Const bd=['0'..'3']; var s,wa,wb,w:string; c:char; i,n:integer; bad_a:boolean; begin WriteLn('Вводите фразу, разделяя слова ровно одним пробелом'); Read(s); s:=s+' '; n:=Length(s); wa:=''; wb:=''; i:=1; bad_a:=false; w:=''; while i<=n do begin repeat c:=s[i]; if c<>' ' then begin bad_a:=bad_a or (c in bd); w:=w+c; Inc(i) end else begin if not bad_a then wa:=wa+' '+w; if s[i-1]='Я' then wb:=wb+' '+w; w:=''; bad_a:=false end until c=' '; Inc(i); end; wa:=Copy(wa,2,Length(wa)-1); wb:=Copy(wb,2,Length(wb)-1); Writeln(wa); Writeln(wb) end.
Тогда 6*30*80=14400байт
14400:1024=14,0625кБайт
ответ 14,0625