вывод таблицы умножения

[Soule]

Помогите пож...есть готовая прога...нужно только исправить ошибку....В общем ошибка такая:Таблица умножения содержит значения произведений цифр. 10 или 21 - это не цифры. Размеры таблицы должны быть разными для разных систем счисления.......А задача звучит так: вывести таблицу умножения в системе счисления с целым основанием 1<k<10...прога лежит здесь httpslil.ru24965401

В следующий раз за такие художества влеплю штраф!

[madmot]

Заведи дополнительную переменную resize:byte;
в программе после ввода системы исчислениея вставь выбор шрины вывода таблицы, ну и сам вывод уже с учетом этой ширины.

...............
var .........
    resize:byte;
...........
case n of
    2: resize:=8;
    3: resize:=6;
    4: resize:=5;
    5: resize:=4;
    6: resize:=4;
    7: resize:=4;
    8: resize:=4;
    9: resize:=4;
    10: resize:=3;
end;
...........
write(f,transmited(i*j,n):resize);
...........

[Soule]

не поняла, а куда вставлять среднюю часть где много написано....???

[madmot]

Где много написано это оператор выбора, раз "n" у тебя выбор системы исчисления, resize это ширина колонки в знакоместах, соответственно вставлять надо после выбора пользовотеля (ReadLn(n))
Загляни в личку...там подробней