<span>var x,y,a:integer;</span>
<span>c:boolean;</span>
<span>begin</span>
<span>readln(x); {считываем}</span>
a:=1;
<span>repeat</span>
writeln(a,' попытка выбор компьютера пал на - ');
<span>y:=random(x)+1; {задаем промежуток рандомом}</span>
write(y);
<span>if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}</span>
<span>until c; {если с=true тогда выход из цикла, иначе крутимся дальше}</span>
writeln('Компьютер сделал ',a,' попыток.');
<span>end.</span>
<span>
</span>
Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.
begin
var a, b: integer;
repeat
(a, b) := ReadInteger2('введите a и b в одной строке через пробел:');
if a >= b then Println('a должно быть меньше b');
until a < b;
Randomize;
loop 5 do
Print(Random(a, b))
end.
Все слова в этом языке имеют вид aba, где a, b - неодинаковые буквы.
На место a можно поставить букву 31 способом, на место b - 30 cпособами (нельзя ставить букву, которая уже стоит на месте a). По правилу умножения получается не более 31 * 30 = 930 комбинаций.
Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub