Photomath вот это приложение
)
если 2+1=3 тогда
х:=3
иначе
если 2=2 тогда
х:=2
y:=x
иначе
х:=1
y:=1
Var a, b, i, c :integer;
begin
<span> read (a, b); </span>// вводим a и b
for i:=1 to 5 do
begin
<span> c:=random(b-a)+a; </span>// присваиваем рандомные числа в заданномпромежутке
<span> writeln (c); </span>// выводим число
end;
<span>end.</span>
var i,n,k: integer;
<span> a: array[0..9] of integer;
</span><span>begin
</span><span> write('число: '); readln(n);
</span><span> for i:=0 to 9 do a[i]:=0;
</span><span> while n>0 do
</span><span> begin
</span><span> k:=n mod 10;
</span><span> a[k]:=a[k]+1;
</span><span> n:=n div 10;
</span><span> end;
</span><span> for i:=0 to 9 do
</span><span> if a[i]>1 then writeln('повторяющаяся цифра: ',i);
</span><span>end.
</span>число: 1022315
<span>повторяющаяся цифра: 1
</span><span>повторяющаяся цифра: 2
</span><span>
</span>