Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1. делим a и b на 33.
2. округляем вверх (до следующего целого)
3. перемножаем округлённые числа.
4. делим на n.
5. округляем вверх.
формулой: x = [([a/33]+1)*( [b/33]+1) / n] + 1
где [y] - целая часть числа y.
var s: string;
i,j,k: integer;
unique: boolean;
begin
for i : = 1000 to 9999 do
s : = str(i);
unique: =true;
for j: = 1 to length(s)-1 do
for k : = j+1 to length(s) do
if s[j] = s[k] then unique: =false;
end;
if unique then
writeln(i);
end.
может длинее, но универсальное.
Популярные вопросы