Недавно на уроке информатики Вася узнал о позиционных системах счисления. Ему очень понравилось представлять разные числа в двоичной, троичной и даже девятеричной системе счисления. Помимо этого Васе нравится записывать цифры числа в обратном порядке. Вася берет произвольное натуральное число X и выполняет последовательно следующие три действия: 1. Вася переводит число X во все системы счисления с основанием от 2 до 9; 2. Все числа, полученные на предыдущем шаге, Вася записывает в обратном порядке, отбрасывая при этом у всех перевернутых чисел ведущие нули; 3. Вася находит максимальное из чисел, полученных на втором шаге, сравнивая значения этих чисел, как будто они записаны в десятичной системе счисления. Какой результат получит Вася после выполнения трех шагов своего алгоритма для числа X ? Теперь рассматриваем эти числа, как будто они записаны в десятичной системе счисления. Тогда максимальное из них равно 31, что и является ответом для исходного числа X=8 . Тест №1: X=4 ; Тест №2: X=12 ; Тест №3: X=14 ; Тест №4: X=80 ; Тест №5: X=96 ; Тест №6: X=144 ; Тест №7: X=192 ; Тест №8: X=912 ; Тест №9: X=13824 ; Тест №10: X=19107 ;

а-1 11

а-2 51

а-3 211

а-4 2222

а-5 2101

а-6 4301

а-7 2321

а-8 120201

а-9 442024

а-10 110001010101001

Объяснение:

Создать файл X компонентами которого являются элемента массива M. Переписать из файла X в файл Y все компоненты, которые стоят на четных местах. Прочитать файл Y.

M = (0,1; 5,6; 0.8; 2,4; 7,3; 6,8; 0,5; 2,3;)

Решение

 

Описание переменных:  

M - массив-константа;

x, y - переменные, связанные с типизированными файлами;

n - считанное из файла очередное число;

i - счетчик.

Алгоритм решения задачи:  

Создать константу-массив, присвоив ей заданные значения массива.

Связать файловые переменные с соответствующими файлами.

Открыть файл X на запись. Записать в него все элементы массива. Закрыть файл.

Открыть файл X на чтение, а файл Y на запись. Присвоить счетчику значение 1. Пока не будет достигнут конец файла X, считывать из него очередное число. Если при этом счетчик имеет четное значение, то записывать число в файл Y. После считывания и проверки на четность номера очередного числа, увеличивать счетчик на 1. После того как файл X будет прочитан, закрыть оба файла.

Открыть файл Y на чтение. Пока не будет достигнут его конец, считывать из него очередное число и выводить его на экран. После завершения цикла закрыть файл.

Программа на языке Паскаль:  

 

const M: array[1..8] of real = (0.1, 5.6, 0.8, 2.4, 7.3, 6.8, 0.5, 2.3);

var  

   x,y : file of real;

   n: real;

   i: byte;

begin

   assign(x,'x.dat');

   assign(y,'y.dat');

 

   rewrite(x);

   for i:=1 to 8 do

       write(x, M[i]);

   close(x);

 

   reset(x);

   rewrite(y);

   i := 1;

   while not EOF(x) do begin

       read(x, n);

       if not odd(i) then

           write(y, n);

       i := i + 1;

   end;

   close(x);

   close(y);

 

   reset(y);

   while not EOF(y) do begin

       read(y, n);

       write(n:5:1);

   end;

   writeln;

   close(y);

Объяснение:

Дана последовательность чисел А длины N. Требуется вывести в обратном порядке.
Первая строка входного файла содержит целое число N (1 <= N <= 1000000) - длину
последовательности. Вторая строка входного файла содержит N целых чисел - элементы
последовательности A. Все элементы последовательности не превосходят 100000 по
абсолютному значению.
В единственной строке выходного файла выведите элементы последовательности A в
обратном порядке. Для наглядности обратите внимание на примеры.
a in 3 a out 321
123 

4 a out 
1231 1321