//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
var
price:real;
i:byte;
begin
write('Введите стоимость 1 кг конфет ');
readln(price);
for i := 1 to 12 do
writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');
end.
101012<span> + 111</span>2<span> = 11100</span><span>2
</span>1010102<span> + 1101</span>2<span> = 110111</span><span>2
</span>10102<span> + 1010</span>2<span> = 10100</span><span>2
</span>10102<span> × 11</span>2<span> = 11110</span><span>2
</span>1112<span> × 101</span>2<span> = 100011</span><span>2
</span>10102<span> × 111</span>2<span> = 1000110</span><span>2</span>
Для начала найдем вес одного символа. Разделим общий объем на количество символов в сообщении. Но для этого переведем в биты: 6*1024*8=49152 бит.
Вес одного символа равняется 49152/6144=8 бит
Воспользуемся формулой N=2^i, где i - вес одного символа, N - количество символов в алфавите.
N=2^8=256 символов.
В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *