//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('массив: ');
var a:=ArrRandom(15,-100,100).Println;
write('кол-во элементов <10: ',a.Where(x->x<10).Count);
end.
символов всего.
бит - вес документа
байт
Кб - вес документа в килобайтах
Вот наглядно как переводить числа из одной системы счисления в другую.
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
Тем что там запрос, а там вопрос,ооочень глупо)