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

Автомобильный номер состоит из нескольких букв, (количество букв одинаковое во всех номерах) за которыми следуют 4 цифры. при этом используется 10 цифр и только 5 букв. нужно иметь не менее 1млн различных номеров, какое наименьшее кол-во букв должно быть в автомобильном номере? а)1 б)2 в)3 г)4 напишите не только ответ, но и решение. заранее : )

👇
Ответ:
Vladislava111111111
Vladislava111111111
10.10.2020
Итак, нужно 1000000 вариантов, 4 цифры есть, это 10000 вариантов(0000 тоже возможно)
необходимо увеличить до 1000000 вариантов, для этого необходимо в 100 раз или больше увеличить. одна буква увеличит в 5 раз, две буквы в 25, 3 буквы в 125, ответ 3 буквы(5*5*5) и будет доступно 1250000 вариантов, что на 250000 больше необходимого
4,6(95 оценок)
Открыть все ответы
Ответ:
Program arr_length;

const
  IN_FILENAME = 'INPUT.txt';
  OUT_FILENAME = 'OUTPUT.txt';

var
  fileIn,fileOut: TextFile;
  s,t: string;

begin
  writeln('Загружаю входные данные...');
  t := '';
  AssignFile(fileIn, IN_FILENAME);
  AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.
4,4(67 оценок)
Ответ:
Viktoria12311
Viktoria12311
10.10.2020
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
  m:=a.Where(t->t>0).Average
end;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  var m:real;
  avg(a,m);
  Writeln('Среднее значение положительных элементов ',m)
end.

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