1. Pascal / Говнокод #27324

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    program square;

var sep, input: string;
  i, j, n, m : integer;
  

begin
  write('sep:');
  readln(sep);
  
  write('str:');
  readln(input);
  
  for i:=1 to length(input) do write(input[i], ' ');
  writeln();
  for i:=2 to length(input)-1 do begin
    write(input[i]);
    for j:=1 to length(input)*2-3 do write (sep);
    writeln(input[length(input) - i + 1]);
  end;
  for i:=0 to length(input)-1 do 
    write(input[length(input)-i], ' ');
end.

    Написала на скучной лекции программку на телефоне, чтобы распечатывать 

    Х У Й
    
У   У
    
Й У Х


    и прочие интересности UwU

    Пользуйтесь на здоровье, лицензия GNU GPL V3!

    Запостил: KoWe4Ka_l7porpaMMep, 28 Марта 2021

    Комментарии (18) RSS

    Добавить комментарий