дартячтчтт

18.01.2023 08:10 •  Информатика

Паскаль! procedure yep(b,n: integer); beginif n< 0 then exit; yep(n div b); if(n mod b)< 10 thenwrite(n mod b); case(n mod b) of 10: write ('a'); 11: write ('b'); 12: write ('c'); 13: write ('d'); 14: write ('e'); 15: write ('f'); 16: write ('g'); 17: write ('h'); 18: write ('i'); 19: write ('j'); 20: write ('k'); 21: write ('l'); 22: write ('m'); 23: write ('n'); 24: write ('o'); 25: write ('p'); 26: write ('q'); 27: write ('r'); 28: write ('s'); 29: write ('t'); 30: write ('u'); 31: write ('v'); 32: write ('w'); 33: write ('x'); 34: write ('y'); 35: write ('z'); end; end; var a,b: integer; beginread(a,b); yep(a,b)end.неверное количество параметров процедурыкак исправить?