Паскаль

[Екатерина57]

Задали на практику написать программу.Имеется трёхзначное число, цифры которого различны. После зачёркивания в нём последней цифры, остаётся двузначное число, являющееся делителем данного.Найти все такие трехзначные цифры.Я написала код,но мне кажется какой-то он слишком легкий,как можно его усложнить?

var
i, j, k : Integer;
begin
for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
if (i * 100 + j * 10 + k) mod (i * 10 + k) = 0 then
Write(i, j, k, '/', i, k, ' ');
Readln;
end.

[evg_m]

в данном коде НЕТ проверки на различность цифр

Имеется трёхзначное число, цифры которого различны.

вот вам и нужное "усложнение" кода
if (i<>j) and (i<>k) and (j<>k)

[Екатерина57]

даже с этой проверкой,что то очень лекго

[Аватар]

if (i * 100 + j * 10 + k) mod (i * 10 + j) = 0 then

тут подправил и вроде нормально. И дальше во write последнее k на j заменить. А что, программу на пару листов нужно? Дык ее вообще можно в одну строчку оформить, ну почти в одну

[evg_m]

даже с этой проверкой,что то очень лекго

тогда "эта же проверка" в оптимизированном варианте.
НЕ выполнять внутрений(-е) цикл(-ы) при нарушении условий различности (при совпадении неких цифр).
Это тоже конечно несложно.

можно еще подумать как таким же образом (не выполнять внутренние циклы) "оптимизировать" и проверку делимости.
Подсказка для этого возможно удобнее будет поменять циклы местами (начинать перебор с младшей или даже с средней цифры).
Получится ли это? не знаю, не думал, просто пришла такая мысль.

[Utkin]

А что, программу на пару листов нужно?

Можно тогда китайский код заюзать . Прогнать программу, рассчитать все и одними writeln запулить. Вот заодно от циклов избавитесь и скорость будет наибольшая. Мегаоптимизация в функциональном стиле. Оптимизировать дальше некуда. Ни циклов, ни условий, ни переменных.