64 символа = 6 битная кодировка
6*5=30 бит
Выделить буквы другим цветом
Залить фон с буквами
Жирный шрифт
Подчеркивание
Программа написана на PascalABC.NET
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.
//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
Так как я очень много играю в компьютерные игры: я хочу две очень мощные видеокарты, самый лучший процессор, много оперативной памяти, а также кучу свободного пространства на жестких дисках. Три огромных монитора формата Ultra HD, Красивую клавиатуру с подсветкой и удобную мышку. (Написал на ходу)