38 lines
800 B
ObjectPascal
38 lines
800 B
ObjectPascal
uses
|
|
System.Threading;
|
|
|
|
var ogr,maxn,minn,num:int64;
|
|
otv:string;
|
|
generatego: Thread;
|
|
|
|
procedure generate();
|
|
begin
|
|
if not (otv='Да') or not (otv='да') or not (otv='ДА') then
|
|
begin
|
|
num:=random(100000000000);
|
|
end;
|
|
if (otv='Да') or (otv='да') or (otv='ДА') then
|
|
begin
|
|
num:=random(maxn);
|
|
end;
|
|
Writeln('Ответ: ',num);
|
|
end;
|
|
begin
|
|
Writeln('Добро пожаловать в рандомайзер!');
|
|
repeat
|
|
writeln('Будут ли ограничения по генерации?');
|
|
readln(otv);
|
|
if (otv='Да') or (otv='да') or (otv='ДА') then
|
|
begin
|
|
ogr:=1;
|
|
Write('Максимальное число: ');
|
|
readln(maxn);
|
|
write('Минимальное число: ');
|
|
readln(minn);
|
|
end;
|
|
generatego := new Thread(generate);
|
|
generatego.Start;
|
|
sleep(1000);
|
|
until otv='Выход';
|
|
end.
|