Впаскалеabc: 1)вывести на экран квадраты и кубы чисел от 2 до 10 2)найти сумму целых положительных четных чисел меньше 200 3) найти сумму целых положительных чисел, кратных 4 и меньше 100 хотя бы с одним ,, напишите программу
program abc; var i,sum1,sum2:integer; begin for i:=2 to 10 do writeln('kvadraty',i*i,' Kyby',i*i*i); for i:=1 to 200 do sum1:=sum1+i; writeln(sum1); for i:=1 to 99 do if i mod 4<>0 then sum2:=sum2+i; writeln(sum2); end.
1) При использовании 16384 цветов для хранения одной точки требуется log(2)16384 = 14 бит. Количество точек рисунка = 9696*8 / 14 ≈ 5540
2) При использовании палитры из 65536 цветов для хранения одной точки требуется log(2)65536 = 16 бит = 2 байта. Объем видеопамяти = 1024*768*2 байт = 1024*768*2/1024 Кбайт = 1536 Кбайт = 1536/1024 Мбайт = 1,5 Мбайт
3) При использовании палитры из 16 цветов для хранения одной точки требуется log(2)16 = 4 бита. Необходимый объем видеопамяти = 640*480*4 бит = 640*480*4/8 байт = 320*480 байт = 320*480/1024 Кбайт = 150 Кбайт. ответ: 256 достаточно для работы
1) При использовании 16384 цветов для хранения одной точки требуется log(2)16384 = 14 бит. Количество точек рисунка = 9696*8 / 14 ≈ 5540
2) При использовании палитры из 65536 цветов для хранения одной точки требуется log(2)65536 = 16 бит = 2 байта. Объем видеопамяти = 1024*768*2 байт = 1024*768*2/1024 Кбайт = 1536 Кбайт = 1536/1024 Мбайт = 1,5 Мбайт
3) При использовании палитры из 16 цветов для хранения одной точки требуется log(2)16 = 4 бита. Необходимый объем видеопамяти = 640*480*4 бит = 640*480*4/8 байт = 320*480 байт = 320*480/1024 Кбайт = 150 Кбайт. ответ: 256 достаточно для работы
в одной программе предусмотренны все 3 условия
program abc;
var i,sum1,sum2:integer;
begin
for i:=2 to 10 do
writeln('kvadraty',i*i,' Kyby',i*i*i);
for i:=1 to 200 do
sum1:=sum1+i;
writeln(sum1);
for i:=1 to 99 do
if i mod 4<>0 then sum2:=sum2+i;
writeln(sum2);
end.