Тема: Казино
Від нічого робити написав простеньку программу на паскалі,проте не знаю як зробити так,щоб воно запам'ятовувало останні мої гроші і в наступних разах виконувало операції вже з тими грошима що в мене залишились
program cas;
var b,a,s,n : integer;
Begin
b:=2000;
writeln('На какое число ставим?(от 0 до 10)');
readln(a);
writeln('Ваша ставка?');
readln(s);
randomize;
n:= random (11);
begin
if a=n
then begin
b:=b+s;
writeln(n , 'Ставка сыграла,ваш банк' , b );
end
else begin
b:=b-s;
writeln(n , 'Ваша ставка не сыграла' , b );
end;
end;
if b=0
then begin
writeln('Вы проиграли все свои деньги');
end;
end.