Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
таблица умножения
программа телепередач
телефонный справочник
прогноз погоды
меню в столовой
в десятичной:
45 = (4*8)^1 + (5*8)^0 = 32 + 1 = 33
106 = (1*8)^2 + (0*8)^1 + (6*8)^0 = 64 + 1 = 65
в двоичной:
45 = 101101
106 = 1101010
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.
может длинее, но универсальное.
фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени
Популярные вопросы