Var i: byte; begin for i: =10 to 25 do begin write(i,' '); writeln(i,'.4'); end; end.
Спасибо
Ответ дал: Гость
1мб/2=512 кб на одну страницу
512*1024*8=4194304 бит на одну страницу
800*600=480 000 пискселей на одну страницу
4194304/480 000=8,74 бит на 1 пиксель, округляем в меньшую сторону по битам=8
2⁸=256 количество цветов можно использовать
Ответ дал: Гость
program xxx; var i, n, max : integer; s : real; a : array [1..20] of integer; begin write ('введите n= '); readln(n); for i: =1 to n do readln (a[i]); max: = a[1]; for i: =1 to n do if a[i] > max then max : = a[i]; s: = sqrt(max); write ('корень из наибольшего эл-та =', s)end.
Популярные вопросы