Каждый ученик в классе изучает либо , либо китайский язык, либо оба этих языка. всего в классе 27 учеников. язык изучают 20 человек, китайский — 16 человек. сколько учеников в классе изучают и тот и другой язык? решить кругами эйлера! обязательно! даны запросы к поисковой системе. по какому запросу будет найдено наименьшее количество соответствующих ему страниц? разведение| содержании|меченосцы|сомикисодержаниемеченосцы(содержаниемеченосцы)|сомикисодержаниемеченосцысомики.тоже кругами эйлера! обязательно!

Ты это скопировал тебе кто это задал

Var a,b,c: int64;
    i,j,k,n,m,r,p,s: integer;
begin
  for i:=1 to 9 do    // буква х
  for j:=1 to 9 do    // буква г
  for k:=1 to 9 do    // буква т
  for n:=0 to 9 do    // буква о
  for m:=0 to 9 do    // буква с
  for r:=0 to 9 do    // буква у
  begin
    p:=k*k mod 10;
    a:=i*10000+p*1000+r*100+m*10+k;
    b:=j*100000+p*10000+n*1000+i*100+n*10+k;
    c:=p;
    for s:=1 to 10 do c:=c*10+p;
    if a*b=c then
    begin
      writeln('хруст = ',a);
      writeln('грохот = ',b);
      writeln(' = ',c);
    end;  
  end;
end.

хруст = 21649
грохот = 513239
= 11111111111

Строчные и прописные латинские буквы:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
a b c d e f g h i j k l m n o p q r s t u v w x y z
пробел
подчеркивание: _
арабские цифры:
0 1 2 3 4 5 6 7 8 9
знаки операций:
+ - * / = <> < > <= >= := @
ограничители:
. , ' ( ) [ ] (. .) { } (* *) .. : ;
спецификаторы:
^ # $
служебные (зарезервированные) слова:
ABSOLUTE EXPORTS LIBRARY SET
ASSEMBLER EXTERNAL MOD SHL
AND FAR NAME SHR
ARRAY FILE NIL STRING
ASM FOR NEAR THEN
ASSEMBLER FORWARD NOT TO
BEGIN FUNCTION OBJECT TYPE
CASE GOTO OF UNIT
CONST IF OR UNTIL
CONSTRUCTOR IMPLEMENTATION PACKED USES
DESTRUCTOR IN PRIVATE VAR
DIV INDEX PROCEDURE VIRTUAL
DO INHERITED PROGRAM WHILE
DOWNTO INLINE PUBLIC WITH
ELSE INTERFACE RECORD XOR
END INTERRUPT REPEAT
EXPORT LABEL RESIDENT

Подробнее - на -