(паскаль) сформировать массив w(r) следующим образом: 1, 5, 25,

Const   r=14; var   i,k: integer;   w: array[1..r] of longint;   begin   write('введите число членов последовательности (1-',r,'): ');   readln(k);   if (k< 1) or (k> r) then writeln('вы ввели неверное значение')   else begin       write('члены последовательности: 1');       w[1]: =1;       for i: =2 to k do       begin           w[i]: =5*w[i-1];           write(', ',w[i])       end;       writeln   end end. тестовое решение: введите число членов последовательности (1-14): 14 члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125

Var r,i,y: integer; w: array[1..10000] of integer; begin write('r='); read(r); y: =1; for i: =1 to r do begin w[i]: =y; y: =y*5; writeln('w[',i,']=',w[i]); end; end.

{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.