9. в данном фрагменте программы: progra.m error; begin summa: =25-14; end; ошибкой является: а) некорректное имя программы б) не определённое имя переменной в) некорректное имя переменной г) запись арифметического выражения
1) одновременно запускаем часы на 3 и 8 минут. после того как истекут часы на 3 мин. - переворачиваем их и ждем еще 3 мин. и снова переворачиваем. 2) наблюдаем за часами на 8 мин. после 1-го пункта в них осталось песка на 2 минуты. ждем пока они истекут и сразу начинаем варить зелье. 3) тем временем в малых часах осталась одна минута, когда она истекает просто перевернем их два раза, тем самым зелье будет вариться 7 минут. (1 мин после 1-2 пунктов + 3 мин + 3 мин. = 7 в условии не сказано, когда именно нужно начинать варить, так что допускаю такое решение будет правильным.
alfaantonk
25.04.2022
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.