Дан одномерный массив d , размерностью 20. элементы массива - это целые числа из промежутка [0; 750]. напишите программу в паскале , вычисляющую количество элементов массива больших 500, которые кратны числу 15.

Const  n=20; var  i,k,e: integer;   a: array[1..n] of integer; begin  randomize;   k: =0;   for i: =1 to n do begin      e: =random(750);       a[i]: =e;       if (e> 500) and (e mod 15 =0) then          k: =k+1;       write(e: 4)      end;   writeln;     writeln('найдено чисел: ',k); end.тестовый пример:   262 743 705 288 545 694 437 280 317 434  53 344 302 293 246 200 608 194 523 478найдено чисел: 1

program markovsp1; uses crt; const   eps=0.001; var   t,s: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('программа вычисляет частичную сумму ряда ');   writeln('  s=1+1/(2^2)+1/(3^2)+1/(4^2)+ ');   writeln('вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');   writeln('способ 1 - используется цикл repeat');   writeln();   s: =0;   i: =1;   repeat      t: =1/((i)*(i));       s: =s+t;       //writeln('i=',i,'  t=',t: 0: 6,'  s=',s: 0: 6);       i: =i+1;   until abs(t)< eps;   writeln('s=',s: 0: 6,' (pi^2)/6=',(pi*pi)/6: 0: 6);   writeln('приближение к (pi^2)/6 равно ',s-(pi*pi)/6: 0: 6); end.program markovsp2; uses crt; const   eps=0.001; var   t,s: real;   i: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('программа вычисляет частичную сумму ряда ');   writeln('  s=1+1/(2^2)+1/(3^2)+1/(4^2)+ ');   writeln('вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');   writeln('способ 2 - используется цикл while');   writeln();   s: =0;   i: =1;   t: =1;   while t> eps do      begin          t: =1/(i*i);           s: =s+t;           //writeln('i=',i,'  t=',t: 0: 6,'  s=',s: 0: 6);           i: =i+1;         end;   writeln('s=',s: 0: 6,' (pi^2)/6=',(pi*pi)/6: 0: 6);   writeln('приближение к (pi^2)/6 равно ',s-(pi*pi)/6: 0: 6); end.

в 16-чной системе цифры от 0 до 9 имеют то же значение, что и в 10-й, а буквы abcdef - соответственно от 10 до 15.

как и в в 10-й системе счисления, позиция цифры влияет на её "вес": цифра на 1 позиции умножается на n в 0-й степени, на 2-й позиции - на n в 1-й степени и так далее (число n наз. основанием системы счисления, для 10-чной системы оно равно 10, для 16-чной - конечно же, 16. и еще одно замечание - позиции цифр в числе считаются справа налево).

для примера возьмём число 2683 в знакомой нам 10-чной системе:

цифра 3 имеет вес 3*10^0 = 3*1 = 3

цифра 8 имеет вес 8*10^1 = 8*10 = 80

цифра 6 имеет вес 6*10^2 = 6*100 = 600

цифра 2 имеет вес 2*10^3 = 2*1000 = 2000

сумма этих результатов и даст нам число 2683.

 

по такому же принципу "работает" и 16-чная система:

число a13:

цифра 3 имеет вес 3*16^0 = 3*1 = 3

цифра 1 имеет вес 1*16^1 = 1*16 = 16

цифра а имеет вес 10*16^2 = 10*256 = 2560

3+16+2560 = 2579

ответ: 2579

 

число cd67f:

цифра  f имеет вес 15*16^0 = 15*1 = 15

цифра 7 имеет вес 7*16^1 = 7*16 = 112

цифра 6 имеет вес 6*16^2 = 6*256 = 1536

цифра  d имеет вес 13*16^3 = 13*4096 = 53248

цифра  c имеет вес 12*16^4 = 12*65536 = 786432

15+112+1536+53248+786432 = 841343

ответ: 841343