Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
function max (x,y : longint) : longint; begin if x> y then max: =x else max: =y; end; var k : longint; s : string; begin readln(s); while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do
begin k: =k+1;
delete(s,max(max(pos('.',s),pos('! ',('? ',); end; writeln(k); end.
я бы сделал
program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; 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 раза больше места
Популярные вопросы