1) 2^15<65000<2^16 ----> 16 бит для одного цвета
2) 16 : 8 =2 уменьшение в два раза (ответ 4)
uses crt;
var
ar: array[1..19]of integer;
i, mul, sum, count, min, mini: integer;
begin
count := 0;
sum := 0;
mul := 1;
randomize;
for i := 1 to 19 do
begin
ar[i] := random(13) - 6;
mul := mul * ar[i];
if(ar[i] mod 2 = 0) then
begin
textbackground(green);
sum := sum + ar[i];
count := count + 1;
end;
if(ar[i] = 5) then
textbackground(red);
write(ar[i], ' ');
textbackground(black);
end;
writeln();
writeln('Произведение всех элементов массива = ', mul);
writeln('Сумма четных чисел = ', sum, ', количество = ', count);
min := ar[1];
mini := 1;
write('Номера элементов, равных 5: ');
for i := 1 to 19 do
begin
if(ar[i] = 5) then
write(i, ' ');
if((ar[i]) < min) then
begin
min := ar[i];
mini := i;
end;
end;
writeln();
writeln('Минимальный элемент = ', min, ', его номер = ', mini);
end.
Не знаю как их назвать, но попробуй зайти в Мой Компьютер и удалить что-нибудь от туда, ни куда не заходя (то есть Диск С и т.д.)
Вот это нельзя удалить...
a={}
s=0.0
n=30
k=0
for i in 1..n
a[i]=rand(1..100)
s=s+a[i]
end
s=s/30
for i in 1..n
if (a[i] > s)
k=k+1
end
end
p k
Int main()
{
double n, m, s;
setlocale (LC_ALL, "rus_rus.1251");
m=0;
n=1;
do
{
s=cos(n)/sqrt((2*n*n-1)*(n*n+1));
m+=s;
n++;
}
while (n<41);
cout << "Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = "<< m;
return 0;
}
Результат:
<span>Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = 0.234638</span>