Дано трехзначное число. напишите программу, которая определяет есть ли среди цифр заданого целого трехзначного числа одинаковые цифры.

  var    a,i : integer;     b : array [1..3] of integer;     begin  readln (a);         for i : = 1 to 3 do      begin      b[i] : = a mod 10;       a : = a div 10;       end;           if (b[1] = b[2]) or (b[2] = b[3])     or    (b[1] = b[3]) then        writeln ('есть одинаковые цифры')    else      writeln ('нет');     readln ();       end.

1. a = 0,5; b = -1,7; так как a больше b, то идем по ветке "else": b = a; b = 0,5. ответ: a = 0,5; b = 0,5. 2. так как "6" больше "16", то идем по ветке "then": c = 5. ответ: 5. 3. если между выражениями стоит "and", то они оба должны выполняться (1), если хоть одно из них ложно, то программа выдаст "ложь" (0). при x = 5 первое выражение будет истинным, но во втором ложным, т.к. пять не больше пяти. две скобки не истинны - значение выражения "ложь" (0). ответ: 0. 4. mod - остаток от деления. abs - модуль числа. если между выражениями стоит "or", то при одной или двух истинных выражениях программа на выходе дает "истину" (1). если обе скобки ложны, то программа возвращает "ложь" (0). при делении 45 на 2, остатком от деления является 1, а не 0. скобка считается ложной. при abs (45) число вправду больше 35, начит скобка истинна. в итоге логическое выражение принимает значение "1". ответ: 1. 5. (x < = 2) or (x > 15). or - или.