Var best, m, s,i: integer; begin best : = 10000000; for i: = 1 to 3 do begin write('min sec = '); readln(m, s); if best > m * 60 + s then best : = m * 60 + s; end; writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.
Ответ дал: Гость
64 * 64 = 4096
512 * 8 = 4096 бит
4096 : 4096 = 1 бит
n = 2^i
n = 2^1 = 2 цвета
ответ. 2 цвета.
Ответ дал: Гость
1)это направление куда будут двигаться все обьекты
2)число равное тому сколько раз исполнитель повторит ваш алгоритм
Ответ дал: Гость
и какая вероятность что пользователь не
program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin randomize; writeln("загадайте число"); n : = 0; repeat n : = n+1; i : = random(10); op : = random(4); case op of 1: s : = "прибавте "; 2: s : = "отнимите "; 3: s : = "умножте на "; else s : = "поделите на "; end; writeln(s, i); changes[1,n] : = op; {запоминаем действия} changes[2,n] : = i; until n = 10; writeln("что вышло? "); readln(res); for i : = n downto 1 do { производим обратные действия } begin case changes[1,i] of 1: res : = res - changes[2,i]; 2: res : = res + changes[2,i]; 3: res : = res / changes[2,i]; else res : = res * changes[2,i]; end; end; writeln("вы загодали ",res); end.
Популярные вопросы