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

Дан брусок длиной 20 метров. Напишите программу, которая посчитает, какое минимальное целое количество отрезков длиной 1,5 м и 2 м получится из данного бруска. На выходе должна быть сумма брусков, и получить кол во брусков по 1.5 и 2 из неё

👇
Открыть все ответы
Ответ:
Рассмотрим оба варианта.
Сог = 2, гл = 3.
Крейсер 16
Уловка 15
Электричество 31
Преподаватель 31
Молоко 15
Сог = 3, гл = 2
Крейсер 19
Уловка 15
Электричество 34
Преподаватель 34
Молоко 15

Если подсчитать символы, то
 2732101263310132 16
391002810039 12 
104281032127100 15
, 291032810327103 15

Подходит только первый вариант, слова соответственно  "крейсер", "шалаш",  "уловка",  "молоко" ИЛИ  "крейсер", "шалаш",  "молоко"  "уловка".,
 из первых двух слов:
 к = 27 р = 32 е = 101 й = 26 с = 33 ш = 39 а = 100 л = 28  
104281032127100 оканчивается на 100, то есть на а, значит это уловка 
у = 104 о = 103  
для роутера недостает буквы т. 
из порядка гласных (0 = 103, у = 104, а в алфавите у следующая гласная за о), понятно, что т = с+1 = 34
тогда роутер = 32 103 104 34 101 32 
 
4,7(62 оценок)
Ответ:
vadimminaev228
vadimminaev228
28.06.2020
Var max_i, max_j, j, columns, rows, i : integer;
arr: array[1..10,1..10] of integer;
Begin
  rows := random(8) + 2;
  columns := random(8) + 2;
  writeln(rows, columns);
 
  for i := 1 to rows do
    for j := 1 to columns do
      arr[i, j] := random(100);

  for i := 1 to rows do begin
    writeln();
    for j := 1 to columns do
      write(arr[i, j]:3);
  end;
  writeln();
  writeln();

  max_i:=1;
  max_j:=1;

  for i := 1 to rows do
    for j := 1 to columns do
      if arr[max_i, max_j] < arr[i, j] then begin
        max_i:=i;
        max_j:=j;
      end;

  for i := 1 to rows do
    if i <> max_i then
      arr[i, max_j] := 0;

  for j := 1 to columns do
    if j <> max_j then
      arr[max_i, j] := 0;

  for i := 1 to rows do begin
    writeln();
    for j := 1 to columns do
      write(arr[i, j]:3);
  end;
  writeln();
  writeln();
End.
4,7(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ