Помогите сделать программкупо возможности в basic ну или pascal (lazarus, delphy)

лееееень)

Вот вам эротическая игра с загадыванием чисел на бейсике http://purebasic.info/phpBB2/viewtopic.php?t=47

BASIC:
CLS 'Clear screen
PRINT "Vvedite X: ";
INPUT X 'Vvod X
m:
RANDOMIZE TIMER
y = INT(X * RND) 'Zagadyvaem 4islo
DO
PRINT "Vvedite 4islo kotoroe zagadal komp: ";
INPUT z
LOOP WHILE (y <> z)
PRINT "Verno - komp zagadal 4islo"; y
PRINT "Xotite eshe sygrat? (1 - yes): ";
INPUT c
IF c = 1 THEN GOTO m 'esli vybran 1 to igraem eshe, ina4e - konec igry

helloworld.ru/texts/comp/lang/qbasic/book/qb1_c.html

Ну щазззЗЗЗ на халяву тут будут проги писать.

Не могу тут писать код (не принимает латиницу) . Отправлю письмом

в паскале чтоб комп генерировал число надо:

program x;
var i:byte; // сюда число сохраняем
begin
Randomize; //включаем генератор случайных чисел
i:=random(99);
end.

это просто прога которая будет генерировать одно случайное число от 0 до 99 изаписывать её в переменную типа байт, и после завершит работу.

В вашем случае после получения числа надо перейти в цикличное считывание числа с клавы пока мест не отгадает правильно

program x;
var i:byte; // сюда число сохраняем
otgadal:boolean;
inpstr: string;
begin
Randomize; //включаем генератор случайных чисел
i:=random(99);
while not otgadal do
begin
readln(inpstr);
//а тут должен быть лингворазбор полученной строки
//так как исходя из вашего желания прога должна пинимать знаки
//больше меньше и фильтровать бредни типа вопросительных
//знаков и прочее.

end;
end.

я вам предлагаю вместо понимания знакови (так как для вас жирно будет ещё и лингво разбор писать.. . впадлу реально фигней заморачиваться да икода тогда будет строк 150-200) просто считывать число (переделать формат на inpstr:integer) и в цикле порверки ифом работать:

program x;
var i:byte; // сюда число сохраняем
otgadal:boolean;
inpstr: integer;
begin
Randomize; //включаем генератор случайных чисел
i:=random(99);
while not otgadal do
begin
readln(inpstr);
if inpstr = i then otgadal:=true
else writeln('Не отгадал!!! ');
end;
writeln(''Победа!!! ');
end.

Вот те дэтский вариантъ. А ваапще учи язык, и не задавай глупых вопросов.