Не (x < 45) и не (в числе x нет одинаковых цифр)

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.

письменность китая похожа на египетскую письменность.

так как основана на иероглифах.

var a,b,c,r,x,y: integer;

begin

  read(a,b,c);

  if (a=b) or (a=c) or (b=c) then

        writeln('ravnobedrennyj');

  read(a,r);

  if  (a*a> pi*r*r) then writeln('kvadrat bolshe')

  else writeln('krug bolshe');

  read(x,y);

  if x> y then writeln(y*y,' ',x*x*x,' ',(x+y)/2);

  else writeln(x*x,' ',y*y*y,' ',(x+y)/2);

end.

var a,a1,a2,a3 : integer;  

begin

  readln(a);

  a1: =a div 100;

  a2: =(a mod 100) div 10;

  a3: =(a mod 100) mod 10;

  writeln(a1+a2+a3);

end.

  а - само число, а1-число сотен, а2-число десятков, а3-число единиц