program A;vark, t: integer;beginassign(input, 'input.txt'); reset(input);assign(output, 'output.txt'); rewrite(output);ReadLn(k, t);if (t div k mod 2 = 0) thenWriteLn(t mod k)elseWriteLn(k - t mod k);close(input); close(output);end.

0 0

4 года назад

Представить число D8E,C (16-ричное) в двоичной системе счисления.

FoxTony [7]

Заменяем цифры числа
D 1101
8 1000
E 1110
C 1100

110110001110,1100
удаляем лишние нули
результат: 110110001110,11

0 0

3 года назад

Определить два наибольших числа в последовательности и найти их частное.Не через массивы. Паскаль.

Андрей1966

Var
    max, prev_max, n: integer;

begin
    max := -10000;
    prev_max := -10000;
    repeat
        read(n);
        if n > max then begin
            prev_max := max;
            max := n;
        end;
    until n = 0;

    writeln(max, ' ', prev_max, ' ', prev_max / max);
end.

0 0

4 года назад

Опредилить основания классификаций:а)ель,сосна,кедр,пихта/берёза,осина,липа,тополь;б)рожь,тишь,ложь,рысь/пшеница,тишина,истина,к

Alx2040 [567]

А) хвойные/лиственные деревья
б) существительные женского рода 3 / 1 склонения
в) одежда / верхняя одежда
г) дикие / домашние животные

0 0

4 года назад