Program abc;
var: a,b,c,V:integer
begin
readln(a,b,c);
V:=a*b*c;
writeln(V);
<span>end.</span>
Где инфа? Где двадцать символов?
Begin
var ar:=arrrandom(15,0,50);
write('Массив: ');
ar.Println;
writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average);
writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count);
ar[5]:=ar.Sum;
write('Новый массив: ');
ar.Print;
end.
<span>Черный цвет кодирует соответственно (0,0,0). Все оттенки серого цвета образуются смешиванием трех составляющих одинаковой яркости. Например, при значениях (200,200,200)получается светло-серый цвет, а при значениях (100,100,100) темно-серый. Чем более темный оттенок серого нужно получить, тем меньшее число нужно вводить в каждое текстовое поле.</span>