Вычислите сумму последовательности y=1+1/2+1/3+/20 !

остатки от деления 72*n на 105 где n начинается с 2

var i, j: integer;

begin for i : = 2 to 100 do writeln(i*72 mod 105); end.

 

3967845128451189057249663301026936375429814815875421936027996633072396784512845118905724966330102693637542981481587542193602799663307239

дальше идет повторение т.е. нет остатка 1

то же самое будет если делить 105n с остатком на 72 не будет остатка 1

x mod 5

-4 -3 -2 -1 0 1 2 3 4  

 

x div 5

любое целое число от  -429496729 до  429496729 (если x - longint) или от -13107 до  13107 если х - integer

Миле не хватило 2 рублей, следовательно если оля и ира добавили бы эти 2 рубля альбом можно было бы купить, но по условию этого не случилось. значит у оли с ирой вместе не было 2 рублей. если у оли х рублей, а у иры y/ тогда х+34=y+35 x+y< 2 x-y=1 2x< 3 x< 1,5 если стоимость альбома целое тогда альбом стоит 35. у иры 33. у оли -1 рубль. если ответ нецелое то стоимость альбома 35< =s< 35,5

program dl9_relay;

var i,a,t ,r,n,s,s2,h,h2 : integet;  

begin

writeln ('vvedit # bileta');

readln (a);

t: =a div 100000;

r: =a mod 100000 mod 10000 mod 1000 mod 100 mod 10;   {барыжна строчка; )   }

n: =9; s: =0; s2: =0;

for i: =1 to n do begin        

h: =t mod i; if h=0 then s: =s+1;

h2: =r mod i;   if h2=0 then s2: =s2+1;

end;

if (h=2) and (h2=2) then writeln ('bilet shasliviy');

else writeln ('bilet obichniy tramvayniy=)');

readln

end.