Задача 7 урок 16

Primary tabs

Submitted by nglag on Wed, 10/06/2021 - 19:45

Forums:

Пользователь вводит произвольную строку, перестройте её в "ёлочку".

Задача 7 урок 16

program project1;
var s: string;
  L,i,n,j:integer;
begin
  writeln('Vvedite s > 10 :');
  readln(s);
  L:=1;
  i:=1;
  while (length(s)>=i) do  //длина диапазона
  begin
      for j:= 1 to L do  //длина строки (кол-во фрагментов строки)
      begin
         if (length(s) >=i) then
         begin
            write(s[i], ' ');
            i:=i+1;
         end;
      end;
    writeln();
    L:=L+1;
  end;
  readln();
end.
  • Log in to post comments
  • 1223 reads
vedro-compota's picture

vedro-compota

Wed, 10/06/2021 - 21:02

решить одним циклом

_____________
матфак вгу и остальная классика =)

nglag

Thu, 10/07/2021 - 11:17 

program project1;
var s: string;
  L,i,n,C:integer;
begin
  writeln('Vvedite s > 10 :');
  readln(s);
  C:=0; //счетчик строк елочки
  L:=1; // счетчик фрагментов в строке елочки
  for i:= 1 to length(s) do  //по всем значениям индексов строки 
  begin
      write(s[i], ' ');
      C:=C+1;
      if C = L then
      begin
        L:=L+1;
        C:=0;
        writeln();
      end;

  end;
  readln();
end.

nglag

Thu, 10/07/2021 - 11:15

*