Решить по информатике. заранее < 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
ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп
program pr1;
uses
crt;
const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);
type
arr2 = array of integer;
var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;
begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;
writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.