Begin
Writeln('Введите имя игрока ');
var name := ReadString;
Writeln('Введите сумму ');
var sum := ReadInteger;
while True do
begin
Writeln('Введите ставку от ', 1, ' до ', sum);
var stavka := ReadInteger;
if stavka > sum then
writeln('Ставка не может превышать имеющиеся наличные')
else
begin
sum -= stavka;
Writeln('Введите число от 1 до 36');
var number := random(1, 36);
var getnumber := ReadInteger;
if (getnumber < 1) or (getnumber > 36) then
Writeln('Неверное число. Вы потеряли ставку!')
else
if number = getnumber then
begin
Writeln('Вы угадали! Вы получаете 36х ставку');
sum += (36 * stavka);
end
else
Writeln('Не угадали. Вы потеряли ставку!')
end;
writeln;
Writeln('Имя игрока ', name);
Writeln('Текущие деньги ', sum);
writeln;
if (sum <= 0) then
begin
Writeln(name, ' , Вы Проиграли! Надеюсь, Вам повезет в следующий раз');
break;
end;
end;
end.
Var i:char;
begin
for i:='a' to 'z' do
writeln(i);
end.
1 3 9 8 24 23
Единицу мы умножаем на 3 и получаем 3
Тройку мы умножаем на 3 и получаем 9
Из девятки мы вычитаем 1 и получаем 8
Восьмёрку мы умножаем на 3 и получаем 24
Из 24 мы вычитаем 1 и получаем 23
Ответ: 11212
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure Zamena(var Stroka:string);
begin
var cin:='abcdefghijklmnopqrstuvwxyz'.ToCharArray;
var n:=cin.Length;
var cout:=cin[1:n]+cin[:1];
for var i:=1 to Stroka.Length do begin
var p:=cin.IndexOf(Stroka[i]);
if p>=0 then Stroka[i]:=cout[p]
end
end;
begin
var aa:='a bc 83xz';
aa.Println;
Zamena(aa);
aa.Println
end.
<u>Пример</u>
a bc 83xz
b cd 83ya
Высылаю вам 2 картинки, надеюсь разберетесь =)