М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ksusha020504
ksusha020504
19.11.2022 05:29 •  Информатика

Написать в шестнадцатиричной системе счисления от0до48

👇
Ответ:
akovlevavika444
akovlevavika444
19.11.2022
0
1
2
3
4
5
6
7
8
9
A
B
C
D
E
F
10
11
12
13
14
15
16
17
18
19
1A
1B
1C
1D
1E
1F
20
21
22
23
24
25
26
27
28
29
2A
2B
2C
2D
2E
2F
30
4,8(26 оценок)
Открыть все ответы
Ответ:
сонька177
сонька177
19.11.2022
Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.
4,7(42 оценок)
Ответ:
arrrrrrrrr1
arrrrrrrrr1
19.11.2022

ответ

uses

  graphabc;

begin

  setwindowwidth(800);                                         //ширина окна

  setwindowheight(600);                                       //высота окна

  setpenwidth(3);

  roundrect(200, 300, 600, 350, 20, 20);                       //кузов машины

  floodfill(400, 320, clnavy);

  circle(290, 350, 30);                                       //переднее колесо

  floodfill(300, 360, clblack);

  circle(510, 350, 30);                                       //заднее колесо

  floodfill(520, 360, clblack);

 

  begin

    setpenwidth(3);

    line(300, 300, 340, 250);

    line(340, 250, 470, 250);

    line(470, 250, 510, 300);

    line(405, 250, 405, 350);

    line(510, 300, 510, 320);

    line(300, 300, 300, 320);

    line(380, 310, 390, 310);

    line(480, 310, 490, 310);

    line(300, 300, 510, 300);

   

  end;

  begin

    setpencolor(clgray);                                   //цвет кисти

    setpenwidth(15);                                       //размер кисти

    circle(510, 350, 10);                                 //заднее колесо

    circle(290, 350, 10);                                 //переднее колесо

   

  end;

  begin

    setpenwidth(3);

    setpencolor(clyellow);

    circle(100, 100, 30);

    floodfill(110, 110, clyellow);

    line(140, 120, 200, 150);

    line(130, 135, 150, 160);

    line(120, 140, 140, 190);

    line(105, 145, 110, 170);

    line(95, 145, 90, 190);

  end;

  begin

  setpenwidth(20);

  setpencolor(clgreen);

  line(0, 385, 800, 385);

  setpenwidth(3);

    setpencolor(clolive);

    rectangle(0, 385, 800, 600);

    floodfill(110, 390, clolive);

  end;

объяснение:

4,5(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ