Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые. способ записи выберите самостоятельно.

Program x; var s: string; begin readln(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then writeln('есть') else writeln('нет') end.

Var a: array[1..100] of  integer; i,p,n: integer; begin writeln('введите количество элементов');   read(n); p: =1; randomize; {случайные числа} for i: =1 to n do {от 1 до n элемента} begin a[i]: =random(100)-50; {случайные числа, можешь указать любые значения} if a[i] mod 4=0 then{если элемент массива делится  на 4 с остатком 0} p: =p*a[i]; {умножаем текущее p на этот элемент} end; writeln(p); {выводим произведение} end. в случае,если в массиве будет число 0, оно будет делится на 4 без остатка, поэтому произведение будет 0. если это не нужно, то строку  if a[i] mod 4=0 then замени на if (a[i]< > 0) and (a[i] mod 4=0) then тогда 0 учитываться не будет.

Зависит от того, в чем работаете(паскаль, с). как самый просто вариант в паскале("в лоб"): uses crt var i: integer;   begin i: =1; {присваиваем 1} repeat   writeln(); {пустая строка}   write(i); {пишем само число i}   write(' '); {ставим пробел}   write(exp(2*ln(i)): 2: 0);   {считаем квадрат числа i}   write(' '); {пробел}   write(exp(3*ln(i)): 2: 0); {считаем куб числа i}   i: =i+1; {новое значение i} until i> 10; {условие окончания i> 10} readkey; {закрытие по нажатию программы} end.