Комментарии: Решаем задачи Абрамян на Паскале. Text37

Автор: asdfg

asdfg — Wed, 18 Aug 2021 15:38:02 +0000

В ответ на asdfg. 24 строка не зацепилась при копировании, там end. не хватает

Автор: asdfg

asdfg — Wed, 18 Aug 2021 11:56:31 +0000

Поспешил, вот до конца правильное решение.

var
  s, st, st1: string;
  f: text;
  i: integer;
begin
  readln(s);
  assign(f, s);
  reset(f);
  readln(f,st);
  while not eof(f) do
  begin
    readln(f, st1);
    i := 0;
    if (st1<>'') and (st<>'') then 
    while length(st) <> 50 do
    begin
      if i = 0 then i := length(st);
      if st[i] = ' ' then insert(' ', st, i);
      dec(i);
    end;
    writeln(st);
    st:=st1;
  end;

var

s, st, st1: string;

f: text;

i: integer;

begin

readln(s);

assign(f, s);

reset(f);

readln(f,st);

while not eof(f) do

begin

readln(f, st1);

i := 0;

if (st1<>'') and (st<>'') then

while length(st) <> 50 do

begin

if i = 0 then i := length(st);

if st[i] = ' ' then insert(' ', st, i);

dec(i);

end;

writeln(st);

st:=st1;

end;

Автор: asdfg

asdfg — Wed, 18 Aug 2021 11:27:40 +0000

Я тоже сначала часа 3 изобретал велосипед на многострок и переменных. Потом понял что всё куда проще делается:

var
  s, st: string;
  f: text;
  i: integer;

begin
  readln(s);
  assign(f, s);
  reset(f);
  while not eof(f) do
  begin
    readln(f, st);
    i := 0;
    if st<>'' then 
    while length(st) <> 50 do
    begin
      if i = 0 then i := length(st);
      if st[i] = ' ' then insert(' ', st, i);
      dec(i);
    end;
    writeln(st);
  end;
end.

var

s, st: string;

f: text;

i: integer;

begin

readln(s);

assign(f, s);

reset(f);

while not eof(f) do

begin

readln(f, st);

i := 0;

if st<>'' then

while length(st) <> 50 do

begin

if i = 0 then i := length(st);

if st[i] = ' ' then insert(' ', st, i);

dec(i);

end;

writeln(st);

end;

end.