70 б. 1. внесите в программу изменения так, чтобы числа вводились в обратном порядке - от большего к 2. 2. какие изменения нужно внести в программу, чтобы вывести все четные числа меньше введенного числа х? 3. внесите изменения в программу так, чтобы выводились числа, кратные 3, 5; кратные введенному числу х. 4. измените программу так, чтобы можно было вывести все числа последовательности, заданной формулой а^n= n/n^2+1.

программа для выведения числа в обратном порядке

{1} const whereinput = 'c: \users\1\desktop\1.txt'; // < == путь файла var     input: text;     n, n1, i, sum: longint; begin assign(input, whereinput); reset(input); readln (input, n); n1: =0; sum: =0; for i: =1 to n do    begin   read (input, n1);   inc (sum, n1);   end; close (input); write ('среднее арифметическое: ', sum/n); end. {2} const whereinput = 'c: \users\1\desktop\1.txt'; var     input: text;     n: longint;     ch: char; begin assign(input, whereinput); reset(input); n: =0; while not eof(input) do   begin   read (input, ch);   inc (n);         if eoln(input) then readln(input);   end; close (input); write ('символов в файле: ', n); end. {3} const whereinput = 'c: \users\1\desktop\1.txt'; var     input: text;     n, i: longint;     ch: char; begin assign(input, whereinput); reset(input); i: =0; n: =0; while not eof(input) do   begin   read (input, ch);   inc (n);         if eoln(input) then         begin         readln(input);         inc (i);         writeln ('символов в ', i, ' строке: ', n);         n: =0;         end; end; close (input); end.

Делалось из рассчета что 4 записывается 4 единицами и тп для n = 3500 и м = 5 будет выбрано 216 чисел const       symbols_count = 7;       symbols: array[1..symbols_count] of integer = (1000, 500, 100, 50, 10, 5, 1); var       num, n, m, c, i, j, res: integer; begin       readln(n, m);             for i : = 1 to n do       begin               num : = i;               c : = 0;               for j : = 1 to symbols_count do                       if num > = symbols[j] then                       begin                               c : = c + num div symbols[j];                               num : = num mod symbols[j];                       end;                                     if c = m then begin                       {writeln(i); }                       res : = res + 1;               end;       end;             writeln(res); end.