Запишите наименьшее число X, для которого истинно выражение (x<20) и (X-честное)

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.

стандартные соотношения 16х9, 4х3, 5х4

16*9*х^2 = 1310720

х = 95,405567039991 чтото не целое, значит чето не то

4*3*х^2 = 1310720

х=330,494578876366 анадогично

5*4*х^2 = 1310720

х=256 о! тогда стороны 5*256 = 1280  4*256 = 1024 вот собственно и оно. у меня такой мониторчик был

var i: integer;

s: string;

begin

  s: ="abcdefghijklmnopqrstuvwxyz";

  for i: = 1 to length(s) do

      writeln(s[i],' = ', ord(s[i]));

end.

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.