Сколько секунд потребуется модему, сообще-ния со скоростью 1 024 000 бит/с, чтобы передать цветное растровое изображение размером 640x480 пикселов при условии, что цвет каждого пиксела кодируется тремя байтами?

1) 640 × 480 =  307200 пикселей в данном изображении

2) 3 байта = 24 бита - глубина кодирования одного пикселя

3)  307200 × 24 =  7372800 бит - информационный объем данного изображения

4)  7372800 бит /  1 024 000 бит/с = 7,2 секунды требуется модему, если скорость передачи будет  1 024 000 бит/с

ответ: 7,2 секунды нужно модему

1. var i,n: integer; begin readln(n); for i: =1 to n do begin if(n mod i = 0) then writeln(i); end; end.2.var shet1,count,sum: integer; beginshet1: =2; sum: =2; count: =1; while sum< =119 do  begin  count: =count+1;   shet1: =shet1+1;   sum: =sum+shet1;   end; write('count = ',count); end.3.var  a: integer; begin  read(a);   while(a < > 0) do    begin    write(a mod 10);     a : = a div 10;   end; end.

Если на паскале   то вот простой рисунок человечка : uses graphabc; var x,y: integer; beginx: =windowwidth div 2; y: =windowheight div 2; circle(x,y-100,25); line(x-50,y-75,x+50,y-75); line(x-50,y-75,x,y+25); line(x+50,y-75,x,y+25); line(x-70,y-75,x-50,y-75); line(x-70,y-75,x-60,y+25); line(x-50,y-75,x-60,y+25); line(x+70,y-75,x+50,y-75); line(x+70,y-75,x+60,y+25); line(x+50,y-75,x+60,y+25); line(x+40,y+25,x,y+25); line(x+40,y+25,x+20,y+125); line(x,y+25,x+20,y+125); line(x-40,y+25,x,y+25); line(x-40,y+25,x-20,y+125); line(x,y+25,x-20,y+125); end.