Мне нужно: придумайте собственный способ кодирования букв алфовита

program zadacha;

var x: integer;

begin

  randomize;

  x: =random(9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999)+1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000;

  if (x mod 3=0) then begin

    if (x mod 9=0) then writeln('делится на 3 и на 9);

  end;

  if (x mod 3=0) then begin

    if (x mod 9> 0) then writeln('делится только на 3);

  end;

  if (x mod 9=0) then begin

    if(x mod 3> 0) then writeln('делится только на 9);

  end;  

end.

 

 

p.s. вы уверены, что стозначное число?

program pr1; uses crt; var fl1,fl2: text; i,n,v,a,b: integer; beginclrscr; assign(fl1,'input.txt'); assign(fl2,'output.txt'); reset(fl1); readln(fl1,n); v: =0; for i: =1 to 1000000 do beginif i> =10 then begina: =i div 10; b: =i mod 10; if (a mod 2< > 0) and (b mod 2< > 0) then v: =v{? } 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}endelse if i mod 2< > 0 then v: =v 1; {здесь тоже самое}if v=n then break; end; rewrite(fl2); writeln(fl2,v); close(fl1); close(fl2); end.