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.
Как мы понимаем что палитра состоит из двух цветов
значит вес одного пикселя равен одному
N=2^i=2
i=1
объём равен вес*ширина*высота
I=i*height*width=240000 бит
если что я переведу из бит в байт если надо
30000 байт 29,29 КБ
Ответ:
1) водонагреватель. Его цель нагревать проходящею через него воду. Вход в систему: холодная вода и электропитание. Выход: подогретая вода до определенной температуры.
2) телевизор. Это устройство предназначено для демонстрации изображения со звуковым сопровождением. Вход в систему: пульт управление, электропитание, а также сигналы, что издают внешние устройства. Выход: звуки и изображения, в которые преображаются полученные прибором сигналы.
Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.
В качестве подарка, и разминки сделал задание.
Надеюсь, что хотя бы "лучший ответ" не забудете поставить, за старания.