Напишите программу, реализующую игру ** угадывание целого числа от 1 до 10. Угадываемое...

Question

Напишите программу, реализующую игру на угадывание целого числа от 1 до 10. Угадываемое число определяется случайно, пользователь вводит предполагаемое значение. Если число угадано, программа выводит набранные очки, а если нет-предлагает повторить попытку. Каждая безуспешная попытка снижает баллы. В начале игры назначается 10 баллов. Помогите, пожалуйста, составить программу... Сдать надо завтра. Пожалуйста))))))))

Answer 1

Var a,b,k,i:integer;
begin
b:=random(10)+1;
k:=10;
WriteLn('Привет, я задумал число от 1 до 10. Угадай его.');
while a<>b do
begin
Write('Введи число: ');
ReadLn(a);
if a<>b then
begin
WriteLn('Не угадал... Попробуй повторить попытку.');
k:=k-1
end
end;
WriteLn('Молодец! Угадал! Набранные очки: ',k)
end.