Содержание
- 2. Задача 1. «Речные гонки» Егор и Петр участвуют в речной гонке на лодках: участники одновременно стартуют
- 3. Задача 1. «Речные гонки» Входной файл river.in: В первой строке ввода содержатся три целых числа: V1
- 4. Задача 1. «Речные гонки» Примеры:
- 5. Задача 1. «Речные гонки» Победитель будет выявлен в том случае, если скорость одного из мальчиков будет
- 6. Задача 1. «Речные гонки» var v1, v2, v3 : longint; f_in, f_out : text; begin assign(f_in,'river10.in');
- 7. Задача 2. «Сеть» Для проведения олимпиады организаторы планируют объединить компьютеры участников в сеть. Из сетевого оборудования
- 8. Задача 2. «Сеть» Два компьютера могут обмениваться данными, если от одного из них до другого можно
- 9. Задача 2. «Сеть» Входной файл network.in: В первой строке входного файла находится одно число N —
- 10. Задача 1. «Сеть» Примеры:
- 11. Задача 2. «Сеть» Обратим внимание на то, что коммутатор с одним портом бесполезен и, более того,
- 12. Задача 2. «Сеть» По окончании цикла проверим m. Если m=0, т.е. не задействован ни один коммутатор,
- 13. Задача 2. «Сеть» var n, i, p, m : longint; k, sp : int64; f_in, f_out
- 14. Задача 2. «Сеть» read(f_in, p); if p>2 then begin sp:=sp+p; inc(m); end; end; close(f_in); if m=0
- 15. Задача 3. «Большое число » Дано целое число N, состоящее из четного количества десятичных цифр. Над
- 16. Задача 3. «Большое число » Когда останется последняя цифра первой половины числа и первая — второй,
- 17. Задача 3. «Большое число » Входной файл bignum.in: Входной файл содержит единственное число N (не более
- 18. Задача 3. «Большое число» Примеры:
- 19. Задача 3. «Большое число» Т.к. исходное число может содержать в начале нули, то хранить его нужно
- 20. Задача 3. «Большое число» Пусть i – номер перестановки (1≤ i ≤ (np-k+1) div 2), тогда
- 21. Задача 3. «Большое число» var n, i, k, np : longint; d : AnsiString; s :
- 22. Задача 3. «Большое число» k:=1; while k np do begin for i:=1 to (np-k+1) div 2
- 23. Задача 3. «Большое число» assign(f_out,'bignum.out'); rewrite(f_out); write(f_out,d); close(f_out); end.
- 24. Задача 4. «Ох, уж эти скобки» Математическое выражение записано в виде произведения: (±a2x2±a1x±a0)∙(±b2x2±b1x±b0)∙(±c2x2±c1x±c0)∙… Внутри каждой из
- 25. Задача 4. «Ох, уж эти скобки» Требуется составить программу, которая перемножает выражения в скобках и выводит
- 26. Задача 4. «Ох, уж эти скобки» Входной файл brackets.in: В первой строке входного файла находится число
- 27. Задача 4. «Ох, уж эти скобки» Выражение составлено по следующим правилам: Всё выражение записывается, начиная со
- 28. Задача 4. «Ох, уж эти скобки» Выходной файл brackets.in: В первой строке выходного файла выводится результат
- 29. Задача 4. «Ох, уж эти скобки» Примеры:
- 30. Задача 4. «Ох, уж эти скобки» В массиве r[1..3,1..13] будем записывать коэффициенты трех многочленов (в 1-й
- 31. Задача 4. «Ох, уж эти скобки» В процедуре Skobka сначала в строке s ищется позиция p
- 32. Задача 4. «Ох, уж эти скобки» Рассмотрим принцип работы процедуры Sol на примере нахождения коэффициента c8:
- 33. Задача 4. «Ох, уж эти скобки» При выводе результата необходимо учитывать следующие моменты; Перед каждым положительным
- 34. Задача 4. «Ох, уж эти скобки» var n, i, p : longint; r : array[1..3,1..13] of
- 35. Задача 4. «Ох, уж эти скобки» p:=pos('x^',s); if p>0 then begin if p=1 then r[k,11]:=1 else
- 36. Задача 4. «Ох, уж эти скобки» if p>0 then begin if p=1 then r[k,12]:=1 else if
- 37. Задача 4. «Ох, уж эти скобки» procedure sol; var i,j:integer; begin for i:=1 to 13 do
- 38. Задача 4. «Ох, уж эти скобки» procedure output; var f:integer; begin f:=0; for i:=1 to 13
- 39. Задача 4. «Ох, уж эти скобки» begin assign(f_in,'brackets1.in'); reset(f_in); readln(f_in,n); readln(f_in,s); close(f_in); if n=1 then skobka(copy(s,2,length(s)-2),1)
- 40. Задача 4. «Ох, уж эти скобки» assign(f_out,'brackets.out'); rewrite(f_out); output; close(f_out); end.
- 41. Задача 5. «Разбиение числа » Факториалом числа n называется произведение n!=1·2·...·n при n>0 и n!=1 при
- 42. Задача 5. «Разбиение числа» Входной файл decomp.in: Входной файл содержит единственное число P (1 ≤ P
- 43. Задача 5. «Разбиение числа» Сначала определим, как вычислять значения Ca1, Cb2 и Cc3: Ca1=a!/(1! (a-1)!)=a, Cb2=b!/(2!(b-2)!)=b(b-1)/2,
- 44. Задача 5. «Разбиение числа» var p, s, n, i, a, b, c : int64; f_in, f_out
- 45. Задача 5. «Разбиение числа» function fb(x:int64):int64; var min, max, s : int64; begin min:=1; max:=2000000; while
- 46. Задача 5. «Разбиение числа» begin assign(f_in,'decomp.in'); reset(f_in); readln(f_in,p); close(f_in); c:=fc(p); p:=p-c*(c-1)*(c-2) div 6; b:=fb(p); a:=p-b*(b-1) div
- 47. Задача 6. «НОК» Наименьшим общим кратным (НОК) нескольких чисел называется наименьшее натуральное число, которое делится на
- 48. Задача 6. «НОК» Входной файл lcm.in: В первой строке входного файла записаны через пробел два числа
- 49. Задача 6. «НОК» Примеры:
- 50. Задача 6. «НОК» На 1-м этапе исходное число K разложим на простые множители: K=p1α1∙p2α2∙…∙ptαt. При этом
- 51. Задача 6. «НОК» Вычислим и выведем два числа: d1=ptαt (произведение всех наибольших простых делителей) и d2=K
- 52. Задача 6. «НОК» Во время выполнения действий 2-го этапа нужно выполнять следующее: Все получаемые числа, если
- 53. Задача 6. «НОК» const maxp=1000000; var n, i, k, m, x, t, j, r, q, d,
- 54. Задача 6. «НОК» x:=k; while x mod 2=0 do begin inc(kp[1]); x:=x div 2; end; if
- 55. Задача 6. «НОК» m:=3; repeat while x mod m=0 do begin inc(kp[t]); x:=x div m; end;
- 56. Задача 6. «НОК» r:=1; for i:=1 to t do r:=r*(kp[i]+1); r:=r-2; assign(f_out,'lcm.out'); rewrite(f_out); if (t then
- 57. Задача 6. «НОК» q:=0; for i:=1 to t do begin d:=1; for j:=1 to kp[i] do
- 58. Задача 6. «НОК» if i>1 then begin for l:=1 to qq do begin d:=a[l]; for j:=1
- 60. Скачать презентацию