MikhailNechaeva
?>

26 . можно ли с трех гирь (1, 3 и 9 кг) взвесить с точностью до 1 кг любой груз до 13 кг включительно, если гири можно располагать на обеих чашах весов, в том числе и на чаше с грузом? представить варианты взвешивания каждого груза.

Информатика

Ответы

aluka
ответ: да можно ,
Для каждого груза можешь привести 
Данный груз +   некая гиря     =  противовес 
1                     +     0                   = 1
2                     +     1                   = 3
3                     +     0                   = 3
4                     +     0                   = 3+1
5                     +     3+1               = 9
6                     +     3                   = 9
7                     +     3                   = 9+1
8                     +     1                   = 9 
9                     +     0                   = 9
10                   +     0                   = 9+1
11                   +     1                   = 9+3
12                   +     0                   = 9+3
13                   +     0                   = 9+3+1
zhunina71807

45. ОЗУ, Кэш, рпп

46. Ширина ячейки не вмещает в себя результат

47. Да

48. Драйвер - программа для подключения какого-либо устройства к ОС и работы с ней

49. При абсолютной ссылке добавляют знак $, который позволяет при копировании не изменять строку/столбец

50. Монитор, принтер, колонки, проектор

51. Всплывает меню задач которые можно выполнить над данным файлом/папкой

52. ОС - комплекс программ, предназначенных для управления ресурсами компьютера

53. Все файлы и текст

54-64. устала я)

65. CD-RW

66. Программа — последовательность инструкций, предназначенная для исполнения устройством УВМ.

67.  С равно (=)

68. DOCX, DOCM, DOTX, DOTM

69. К прикладному программному обеспечению

70. Программа предназначенная для просмотра web страниц, поиска информации и т.д.

71. Notepad, TextPad

, MS Word, WordPad, Excel

72.RAW, JPEG, GIF, PNG, TIFF, PSD

73. Форма в Access — это объект базы данных, который можно использовать для создания пользовательского интерфейса для приложения базы данных

74. Normal.dot

75. БД - множество данных организованных  для быстрого и удобного поиска информации

76. Растровые форматы TIFF, JPEG

Векторные форматы DWG, DXF

VadimovnaIgor
Var
  m, n: integer;
  ms: array[1..9] of string;
  md: array[1..9] of string;
  m1: array[11..19] of string;
  me: array[1..9] of string;
  flag: boolean;

begin
 
  flag := false; { Пока ничего не выведено }
  ms[1] := 'сто'; ms[2] := 'двести'; ms[3] := 'триста'; ms[4] := 'Четыреста';
  ms[5] := 'пятьсот'; ms[5] := 'пятьсот'; ms[6] := 'шестьсот'; ms[7] := 'семьсот';
  ms[8] := 'восемьсот'; ms[9] := 'девятьсот';
  md[1] := 'десять'; md[2] := 'двадцать'; md[3] := 'тридцать'; md[4] := 'сорок';
  md[5] := 'пятьдесят'; md[6] := 'шестьдесят'; md[7] := 'семьдесят';
  md[8] := 'восемьдесят'; md[9] := 'девяносто';
  m1[11] := 'одиннадцать'; m1[12] := 'двенадцать'; m1[13] := 'тринадцать';
  m1[14] := 'четырнадцать'; m1[15] := 'пятнадцать'; m1[16] := 'шестнадцать';
  m1[17] := 'семнадцать'; m1[18] := 'восемнадцать'; m1[19] := 'девятнадцать';
  me[1] := 'один'; me[2] := 'два'; me[3] := 'три'; me[4] := 'четыре'; me[5] := 'пять';
  me[6] := 'шесть'; me[7] := 'семь'; me[8] := 'восемь'; me[9] := 'девять';
 
  Write('Введите целое число от 1 до 1000: ');
  Readln(m);
  if (m < 1) or (m > 1000) then Writeln('Шутки шутим?')
  else
  if m = 1000 then Writeln('Одна тысяча ')
    else
  begin
      { сотни }
    n := m div 100;
    if n > 0 then
    begin
      Write(ms[n]);
      flag := true
    end;
      { десятки }
    m := m mod 100;
    if m = 0 then Writeln(' ')
    else
    begin
      if (m > 10) and (m < 20) then
      begin
        if flag then Write(' ');
        Writeln(m1[m])
      end
      else
      if m > 0 then
      begin
        n := m mod 10;
        m := m div 10;
        if m > 0 then
        begin
          if flag then Write(' ') else flag := true;
          Write(md[m])
        end;
        if n <> 0 then
        begin
          { единицы }
          if flag then Write(' ');
          Write(me[n]);
        end
      end
    end
  end
end.

Тестовое решение:
Введите целое число от 1 до 1000: 429
Четыреста двадцать девять

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

26 . можно ли с трех гирь (1, 3 и 9 кг) взвесить с точностью до 1 кг любой груз до 13 кг включительно, если гири можно располагать на обеих чашах весов, в том числе и на чаше с грузом? представить варианты взвешивания каждого груза.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vickuznetsova8677
Ingakazakova
Лихачев Полина1978
praskovya17
Матфеопуло1006
Vladmouse32506
kristina1989
Каныбек698
clubgarag701
taksa6444
minaskorolev8
Васильев1028
nadejdashin508
Smolkovaya
nataliagoncharenko