Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n, s, k : integer;
a : array [1..20] of integer;
begin
write('введите n=');
readln(n)
writeln('введите элементы массива а: ' );
for i: =1 to n do
readln(a[i]);
s: =0;
k: =0;
if a[i] mod 8 = 0 then begin s: =s+a[i]; k: =1 end;
if k=0 then write ('элементов кратных 8 - нет')
else write('сумма элементов кратных 8 =', s);
readln
end.
a*b*i=i
n=2^i
где a*b-размер изображения, n-количество цветов,i-количество памяти на один пиксел, i-вес рисунка(бит)
1)64*64*i=512*8
i=1
n=2
ответ: 2
2)256=2^i
i=8
a*b*8=2400*8
a*b=2400
ответ: 2400
3)n1=4=2^2
i1=64*128*2=2^14бит=2кбайт
n2=16=2^4
i1=32*32*4=2^12бит=0,5кбайт
ответ: на первое изображение потребуется в 4 раза больше места
program _1_2; uses crt; var dlina, shirina, vysota: real; begin clrscr; textcolor(14); writeln('вычисление объёма параллелепипеда.'); writeln('введите исходные данные: '); write('длина (см) -> '); readln(dlina); write('ширина (см) -> '); readln(shirina); write('высота -> '); readln(vysota); writeln('объём: ',(dlina*shirina*vysota): 7: 2); repeat until keypressed; end.
картинка должна быть в папке с программой и быть в формате bmp
usesgraphabc;
varn: string; b: picture; s: integer;
beginwriteln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.
Популярные вопросы