var i,n,b:integer;
a:array [1..100] of integer;
begin
Randomize;
write('Сколько элементов в массиве: ');
readln(n);
write('Массив: ');
for i:= 1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
b:=b+a[i];
end;
writeln(' ');
write('Сумма всех элементов массива: ',b);
end.
Чем больше глубина цвета, т.е. чем больше битов отводится на кодирование одного цвета , тем больше цветов в палитре .
Если сумма цифр в числе кратна 3-м, то число делится на 3 без остатка. У меня получилось 9776544.
Проверяем 9+7+7+6+5+4+4=42, 42/3=14.
Var a,b,c,x,y,s: integer; begin readln (a,b,c); x:=c; y:=c; s:=0; while x<=a do begin s:=s+1; x:=x+c end; x:=s; s:=0; while y<=b do begin s:=s+x; y:=y+c end; writeln (s)end.______________________
Примеры:
5 6 26
2 3 40