640 * 480 = 307200 пикс.
307200 * 3 = 921600 байт
28800 бит/c = 3600 байт/c
921600 / 3600 = 256 c.
4 Мб = 4 * 1024 Кб = 4 * 1024 * 1024 байт
Если продолжительность записи t секунд, объём файла
8 бит * 44 100 Гц * t с = 44 100 t байт
44 100 t = 4 * 1024 * 1024
t = 95 с
1)trunc(6.9) = 6
2)trunc(6.2) = 6
3)20 div 6 = 3
4) 2 div5 = 0
5) round(6.9) = 7
6) round(6.2) = 6
7)20 mod 6 = 2
8) 2 mod 5 = 2
9) 3*7 div 2 mod 7/3 - trunc (sin(1)) = 1
1)
Program n1; var cl,q: string; begin cl:='клоун'; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:='м'; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:='н'; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(k>k1) then writeln('м больше чем н'); if(k<k1) then writeln('н больше чем м'); end.