в нужный разряд


в нужный разряд числа (9*102=900); * к результату добавляется обрезанное значение (900+78=978). Предлагаемая программа DT (Digit_Transfer), полагаем, в дополнительных комментариях не нуждается. function DT(n: longint): longint; var tmp: longint; digit, n_dig: byte; begin tmp := n; n_dig := 0; while tmp > 0 do begin tmp := tmp div 10; n_dig := n_dig + 1; end; tmp := n div 10; digit := n mod 10; DT := digit * power(10, n_dig - 1) + tmp; end; Следующие 3 задачи предлагаются для тестирования. Задача #1. Перенос бита (Отправить) Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 2 секунды В битовом представлении заданного натурального числа перенести младший бит, поставив его перед старшим единичным битом. Формат входных данных Первая строка входного файла содержит натуральное число K (1<=K<=10) -- количество тестов. Каждая из следующих K строк содержит один тест -- целое число
Индекс
Элементарные функции    Линейные уравнения    Нелинейные уравнения    Случайные числа


Hosted by uCoz