Решить по информатике. заранее < 3
1. гипотенуза.
ограничение по времени, сек 1
ограничение по памяти, мегабайт 64
язык free pascal gnu c gnu c++ delphi java php python 2.7 perl mono c# ruby python 3.1 haskell
min время, сек 0.001 0.001 0.001 0.002 0.117 0.018 0.006 0.004 0.041 0.006 0.046 0.003
среднее время, сек 0.006 0.008 0.007 0.007 0.265 0.17 0.067 0.026 0.061 0.059 0.091 0.009
верных решений 7814 256 3832 713 230 29 105 8 251 18 299 21
дано два числа a и b. найдите гипотенузу треугольника с заданными катетами.
входные данные
в двух строках вводятся два числа (числа целые,положительные, не превышают 1000).
2. следующее и предыдущее.
ограничение по времени, сек 1
ограничение по памяти, мегабайт 64
язык free pascal gnu c gnu c++ delphi java php python 2.7 perl mono c# ruby python 3.1 haskell
min время, сек 0.001 0.001 0.001 0.002 0.117 0.011 0.006 0.004 0.041 0.006 0.046 0.004
среднее время, сек 0.007 0.009 0.012 0.008 0.213 0.115 0.029 0.018 0.071 0.009 0.068 0.007
верных решений 5801 244 3338 659 229 12 75 6 222 9 235 10
напишите программу, которая считывает целое число и выводит текст, аналогичный в примере. пробелы, знаки препинания, заглавные и строчные буквы важны!
входные данные
вводится целое число, по модулю не превосходящее 1.
выходные данные
выведите сначала фразу "the next number for the number ", затем введенное число, затем слово " is ", окруженное пробелами, затем формулу для следующего за введенным числа, наконец, знак точки без пробела. аналогично в следующей строке для предыдущего числа. при необходимости используйте параметр вывода sep в языке python.
примеры
входные данные
179
выходные данные
the next number for the number 179 is 180.
the previous number for the number 179 is 178.
3. дележ яблок.
ограничение по времени, сек 1
ограничение по памяти, мегабайт 64
язык free pascal gnu c gnu c++ delphi java php python 2.7 perl mono c# ruby python 3.1 haskell
min время, сек 0.001 0.001 0.001 0.002 0.117 0.011 0.006 0.004 0.038 0.005 0.046 0.004
среднее время, сек 0.006 0.008 0.007 0.006 0.22 0.043 0.04 0.017 0.068 0.008 0.066 0.006
верных решений 7308 254 3549 679 166 21 77 7 220 9 295 10
n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. сколько яблок достанется каждому школьнику?
входные данные
программа получает на вход числа n и k.
выходные данные
программа должна вывести искомое количество яблок.
примеры
входные данные
3
14
выходные данные
4
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.
Объяснение:
Примечание:
Если к числу в двоичной системе счисления приписывать в конец цифры, то число увеличивается и никак не может уменьшится. Поэтому, n<f(n). Следовательно, перебор различных чисел, принадлежащих отрезку [90;160], можно смело ставить до 160 (можно и меньше, но лень расписывать вычисления).
ToBinary - функция перевода числа из десятичной СС в двоичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
FromBinary - функция перевода числа из двоичной СС в десятичную. Можно писать любой алгоритм, необязательно в точности использовать мой.
func - функция, которая выполняет преобразования числа согласно условию (пункты 1, 2, 3, 4).
Код кажется большим только из-за процедур и begin/endов. Без них - всего то 7 строчек :). В скринах можно проверить, действительно ли 19 (40-22+1).
Пример работы: