Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

Var   a: word;   b, c, d: byte; begin   readln(a);   b : = a mod 10;   c : = a div 10 mod 10;   d : = a div 100;   writeln(b, ' ', c, ' ', d);   if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then     writeln('yes, there are')   else     writeln('no, there aren"t'); end.

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

1/512 мб = 1024/512 кб = 2 кб = 2048 байт = 2048 * 8 бит на 1 символ отводится 2048 * 8 бит / 2048 = 8 бит объём алфавита 2^8 = 256 символов