Школоло / Говнокод #27324 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 KoWe4Ka_l7porpaMMep, (Updated )

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?


    8