Привет мир!’);

Сколько раз будет выведено сообщение?
- 1
- 4
- 2
- 5

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

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.

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 раза больше места