Дан целочисленный массив из 10 элементов. вывести на экран все его четные элементы, предварительно расположив их по убыванию методом пузырька

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации 

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.

 

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.