var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
Если богиня сидящая слева является Правдой, то она не могла сказать что рядом с ней сидит Правда.
Предположим, что Правда сидит в центре, но тогда она не могла сказать про себя что она Мудрость.
Исходя из последнего высказывания по условию задачи и вывода что справа сидит Правда, получаем что в центре сидит Ложь, а слева Мудрость.
Ответ: Мудрость, Ложь, Правда.
1. 1 символ занимает 1 байт. "восемь мегабайт" 15 символов с пробелом (он тоже занимает место). 15 бит содержится в сообщении "восемь мегабайт"
Ответ: 15 бит.
2. 55*72*365=1445400 количество символов в книге, 1 символ 1 байт.
переведем байты в килобайты 1445400 / 1024 = 1411.52 Кбайт
получим мегабайты 1411.52 / 1024 = 1.378 мб.
Ответ: 1.378 мб.
3. мощность 256 символов это 2 в 8 степени. 1 символ занимает 8 байт.
всего 35 символов. 35*8= 280 байт.
Ответ: 280 байт информационный объем текста.
1. числовая-количественная - мера объектов и их свойств в окружающем мире.
2. Звуковая — воспринимаемая органами слуха.
3.Тактильная — воспринимаемая тактильными рецепторами.
4. Обонятельная — воспринимаемая обонятельными рецепторами.
5. Вкусовая — воспринимаемая вкусовыми рецепторами.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>