Напишите все трёхзначные нечётные числа,делящиеся на 9 в записи которых есть только цифры0,1,4,5,8 и нет двух одинаковых цифр. 3 дня переделываю в долгу не останусь
В С# такой код получился)) Результат прикрепил в виде картинки, правда весь не поместился)) Если нужно, могу скинуть готовую программу) double c; int x=0; int y = 0; int z=0; for (int i = 100; i < 1000; i++) { c = i % 9; if (c == 0) { int b = i; x = b / 100; b = b % 100; y = b / 10; b = b % 10; z = b; if (x == 0 || x == 1 || x == 4 || x == 5 || x == 8 || y == 0 || y == 1 || y == 4 || y == 5 || y == 8 || z == 0 || z == 1 || z == 4 || z == 5 || z == 8) { if (x != y && x != z && z != y) Console.WriteLine(i); } } }
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
Var a, k, b, D, X, X1, X2 : real; begin writeln ('введите коэффициенты уравнения (a, k, b) '); readln(a,k,b); if a=0 then if k=0 then if b=0 then writeln('X - любое число') else writeln('корней нет! ') else begin X:=-b/k; writeln('X=',X:8:3); End else begin D:=k*k-4*a*b; if D<0 then writeln ('Корней нет! ') else begin X1:=(-k+sqrt(D))/2/a; X2:=(-k-sqrt(D))/2/a; writeln ('X1=', X1:8:3, ' X2=',X2:8:3); end; end; end.
