Даны целое число k и последовательность цифр «», в которой выписаны подряд все двузначные числа. определите k-ю цифру в последовательности. формат входных данных вводится одно целое число kk (1≤k≤1801≤k≤180). формат выходных данных требуется вывести искомую цифру.

👇

Ответ:

angelina453

13.07.2021

# # Код на ruby 2.2.3p173
def zadanie(k)
   s = ""
    for i in 10..99
        s += i.to_s
   end
   return s[k-1] # в руби нумерация с 0
end
# Примеры применения
p zadanie(50)

4,6(98 оценок)

Открыть все ответы

Ответ:

SERGUES

13.07.2021

Размер битмапа в дюймах: 3.937 * 5.906
размер битмапа в пикселах: 1181 * 1771 = 2091551
размер битмапа в единицах информации = 2091551 * 16 = 33464816(бит) = 4183102(байт) = 4085(килобайт) = 3.989(мегабайт)

Строго говоря, это именно размер битмапа, а не выходного файла: во-первых, в различных форматах хранения графических данных используются различные алгоритмы сжатия битмапа, иногда с потерей качества, иногда без; это уменьшает размер файла. С другой стороны, в графическом файле присутствует различная служебная информация (специфична для используемого формата файла), что увеличивает (незначительно) размер файла.

4,5(67 оценок)

Ответ:

yanakuzmina1

13.07.2021

Uses GraphABC;
Begin
SetWindowSize(800,600);
SetWindowTitle ('Ёжик');
SetPenWidth(15);
{рисуем ноги}
SetPenColor(clMaroon);
MoveTo(320,520);
LineTo(320,600);
LineTo(460,600);
LineTo(460,520);
LineTo(420,520);
LineTo(390,580);
LineTo(360,520);
LineTo(320,520);
MoveTo(390,580);
LineTo(390,600);
FloodFill(340,540,clFuchsia);
FloodFill(440,540,clFuchsia);
{рисуем туловище}
Circle(390,315,200);
FloodFill(390,315,clFuchsia);
{рисуем очки}
SetPenColor(clPurple);
Circle(320,300,70);
Circle(460,300,70);
MoveTo(260,260);
LineTo(220,240);
MoveTo(520,260);
LineTo(560,240);
{рисуем глаза}
Circle(340,310,30);
FloodFill(340,310,clBlack);
Circle(440,310,30);
FloodFill(440,310,clBlack);
{рисуем нос и рот}
SetPenColor(clMaroon);
MoveTo(360,370);
LineTo(420,370);
MoveTo(390,370);
LineTo(390,400);
SetPenColor(clRed);
MoveTo(360,440);
LineTo(420,440);
LineTo(390,460);
LineTo(360,440);
{рисуем челку}
SetPenColor(clMaroon);
MoveTo(380,120);
LineTo(390,180);
LineTo(400,120);
MoveTo(380,140);
LineTo(340,190);
MoveTo(400,140);
LineTo(440,190);
{рисуем руки}
MoveTo(200,400);
LineTo(180,440);
LineTo(180,500);
LineTo(200,520);
LineTo(240,520);
LineTo(240,480);
LineTo(220,480);
LineTo(220,460);
LineTo(240,450);
FloodFill(200,440,clFuchsia);
MoveTo(580,400);
LineTo(600,440);
LineTo(600,500);
LineTo(580,520);
LineTo(540,520);
LineTo(540,480);
LineTo(560,480);
LineTo(560,460);
LineTo(540,450);
FloodFill(580,440,clFuchsia);
{рисуем иголки}
SetPenColor(clPurple);
MoveTo(180,330);
LineTo(100,240);
LineTo(140,220);
LineTo(180,220);
LineTo(180,120);
LineTo(200,100);
LineTo(220,120);
LineTo(280,120);
LineTo(390,20);
LineTo(500,120);
LineTo(560,120);
LineTo(580,100);
LineTo(600,120);
LineTo(600,220);
LineTo(640,220);
LineTo(680,240);
LineTo(600,330);
FloodFill(380,80,clBlue);
End.

Напишите программу для ежика из смешариков, нарисовать в pascal abc. размер поля 800*600.