Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
Ответ:
Ни один крупный проект не пишется в одном файле. В папке прикладной программы помимо основного исполняемого файла обычно лежат всё её модули, файлы конфигурации, файлы с текстурами/звуками, библиотеки динамического подключения .dll и прочее. Удаление любого из этих файлов приведёт к нарушению работы программы, так как основные исполняемые файлы могут искать свои модули только в одной конкретной папке, прописанной разработчиком приложения (и в 99% случаев это та же папка, в которой лежит исполняемый файл)
Объяснение:
Я думаю, что не существует. Звезды называются людьми для удобства. И хоть звезд во вселенной миллиарды, но людьми наблюдается не очень много звезд.
Если звезды называются для удобства человека, то наличие двух звезд с одним и тем же именем может вызвать путаницу.
Поэтому в двоичной записи числа 56 три единицы.