1.определите скорость работы модема, если за 256 с он может передать растровое изображение размером 640 х 480 пикселей (на каждый пиксель приходится 3 байта .а если в палитре 16 миллионов цветов ? )

узнаем количество точек 640*480=307200

1 пиксель 3 байта, вычисляем размер картинки

3*307200=921600 байт.

скорость модема = 921600 делим на время 256

скорость = 921600/256=3600 байт в секунду

Если в палитре 16 м цветов.

1 пиксель кодируется 24 бит или 3 байта, а это и есть параметр нашего изображения. Тут считать нечего.

ответ: 3600 байт в секунду.

Я не знаком особо с паскалем, но могу направить на путь истинный :b
Кароче..
Подсчет количества:
если билет счастливый count++;
(все логично)
Но как определить счастливый ли билет:
Припустим у нас номер билета лежит в массиве: ticket, то
if ((strval(ticket[0]) + strval(ticket[1] + strval(ticket[2])) == (strval(ticket[3]) + strval(ticket[4]) + strval(ticket[5])))
count++;

strval - преобразовнаие из строки в число. string --> integer
Если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.

Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200)  then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write('  min = ' ,min:4);end;end.