Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
кен127
28.04.2023 20:00 •
Информатика
На блиц-турнире решения задач по информатике было предложено 16 задач. Петр решил одну из 16 задач - за-
дачу № 8. Используя содержательный подход к измере-
нию информации, определите, сколько информации в дан-
ном сообщении.
Показать ответ
Ответ:
дильназ149
24.01.2021 17:55
1. Вот так сейчас решают подобные задачи:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
0,0
(0 оценок)
Ответ:
Ram543
13.12.2020 06:29
While (tnum != 0) //tnum, tden - числитель и знаменатель искомой дроби
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
0,0
(0 оценок)
Популярные вопросы: Информатика
crybaby1916
26.05.2020 18:50
Вмассиве из 10 целых чисел подсчитать количество элементов меньше чем среднее арифметическое минимального н максимального элементов. написать программу в delphi7...
Carroty13
10.10.2022 19:04
Посчитайте количество информации в книге, если в книге 250 страниц, каждая страница состоит из 30 строк и каждая строка состоит из 75 символов...
shoistakarimova
14.05.2023 04:46
Какой ответ получится в ходе выполнения следующей программы, если введено значение Х=4? Begin Write(‘X=’, X); IF X 5 THEN Y = 1 ELSE Begin IF X = 3 THEN Y = 3 ELSE Y =...
Неизвестная66
22.11.2020 08:56
Витя загадал трехзначное число. Если вычислить сумму (первой и второй цифры) и (второй и третьей цифры) и записать в порядке убывания, то получится число 1412.Какое возможное...
stru4kovav13
05.05.2023 00:19
Чтобы открыть секретный сейф, агент 007 должен в возрастающем порядке набирать все трехзначные числа, в записи которых нет одинаковых цифр. Составить программу,на паскале,...
sashaShelsy
05.05.2023 00:19
плз По графикам движения, приведённым на чертеже, определи скорость движения каждого объекта и запиши формулу, выражающую зависимость пройденного расстояния от времени...
pingvik86
21.02.2022 02:57
Изменил иконку в ютубе, но она не изменилась в donation alerts 1) Она изменится вообще или старая будет? или там можно поменять её? 2) Если изменится то через сколько времени...
ARISKA2006
25.09.2022 03:09
, не могу понять как решить Проверка числа на простоту Дано натуральное число x 1. Проверьте, является ли оно простым. Программа должна вывести слово YES, если число простое,...
ДанькоДенис2018
03.10.2020 16:29
: в питоне 3.7 формула x = y + 3 ; при вводе (y) срабатывала арифметическая прогрессия до 21 числа , потом ввести 2 числа , сложить и вывести это число . поеснение : n...
nadyushka3
11.12.2020 17:49
COP за 3 четверть по предмету «Русская литература»Задания N:11. Прочитайте отрывок из повести Л. Толстого «Кавказский пленник»,Житье им стало совсем дурное Кадоки не снилади...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;