begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Чтобы найти вероятность, нужно число тех событий, вероятность которых нудно найти разделить на число всех возможных событий, итак, думаем:
Числа, квадрат, которых меньше десяти, это: -3, -2, -1, 0, 1, 2, 3. Получилось 7 чисел. Теперь решаем: 7/21=~0,33
ответ: 0,33