узнаем количество точек 640*480=307200
1 пиксель 3 байта, вычисляем размер картинки
3*307200=921600 байт.
скорость модема = 921600 делим на время 256
скорость = 921600/256=3600 байт в секунду
Если в палитре 16 м цветов.
1 пиксель кодируется 24 бит или 3 байта, а это и есть параметр нашего изображения. Тут считать нечего.
Ответ: 3600 байт в секунду.
Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.
program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)
Var s,sw: string;
i,j,bst: integer;
begin
s:='строка для решения арба еле реестр';
bst:=1; sw:=''; write('строка для поиска - ');
writeln(s);
for i:=1 to length(s) do
begin
if (Ord(s[i])=32) then
begin
if (s[bst]=s[i-1]) then
begin
for j:=bst to i-1 do sw:=sw+s[j];
writeln('найдено слово - ',sw);
sw:='';
end;
bst:=i+1;
end;
end;
if (s[bst]=s[length(s)]) then
begin
for i:=bst to length(s) do sw:=sw+s[i];
writeln('найдено слово - ',sw);
end;
<span>end.
</span>
Пусть компьютер считает.
javascript:for (let сч = Math.pow(15, 4); сч < Math.pow(15, 5); сч++) { let м = [], п = сч; while (п > 0) { м.push(п % 15); п = п / 15 | 0; } п = сч * 4; let сч1 = 4, н = true; while (п > 0) { if (м[сч1] != п % 15) { н = false; break; } п = п / 15 | 0; сч1--; } if (н) { alert(сч); break; } }
Это число - 161952.