Question

Помогите решить, лучше решение в паскале очень надо !!!!

Answer 1

лови. тут делов-то на 5 минут....

program game;
var
balance : integer;
box : byte;
answer : byte;
ch : char;
next : boolean;

begin
balance := 10;
randomize;
next := true;
repeat
box := random(10);
write('Загадано число от 0 до 10. Угадайте его: ');
readln(answer);
if answer=box
then begin
writeln('Бинго! Вы получаете 1 балл!');
inc(balance,1);
write('У вас ', balance, ' баллов. Продолжаем? (y/n): ');
readln(ch);
if ((ch='n') or (ch='N')) then begin
writeln('Ну чтож, до свиданья...');
next := false;
end;
end
else begin
writeln('Увы, не угадали. Вы теряете 1 балл!');
if balance = 1 then begin
writeln('К сожалению, у вас не осталось баллов. До свиданья.');
next := false;
end
else begin
dec(balance, 1);
write('У вас ', balance, ' баллов. Продолжаем? (y/n): ');
readln(ch);
if ((ch='n') or (ch='N')) then begin
writeln('Ну чтож, до свиданья...');
next := false;
end;
end;
end;
until not next;
end.

Answer 2

ок, ща попробую

Answer 3

спасибох

Answer 4

во йопрст. вопрос куда-то делся твой. выложи его ещё раз

Answer 5

секунду

Answer 6

добавил?