Pascal abc. задайте массив из файла, в котором будут размещены однозначные цифры вашей даты рождения. например, вы родились 5 ноября 1990 года, но массив будет выглядеть следующим образом: 0,5,1,1,1,9,9,0. отсортируйте данный массив, посчитайте сумму его элементов и среднее арифметическое. результат сохраните в файл.

Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". в первый записываешь 8 чисел без пробелов и запятых ("22031991", например). type  matrix = array [1..8] of integer; var  f, output: text;   i, n, cc, sum: integer;   c: char;   x: matrix;   ma: real; procedure convert (var c: char; var cc: integer); begin  if c='1' then cc: =1;   if c='2' then cc: =2;   if c='3' then cc: =3;   if c='4' then cc: =4;   if c='5' then cc: =5;   if c='6' then cc: =6;   if c='7' then cc: =7;   if c='8' then cc: =8;   if c='9' then cc: =9;   if c='0' then cc: =0; end; procedure sorting (n: integer; x: matrix); begin  for n: =1 to 7 do begin    if x[n]> x[n+1] then swap(x[n],x[n+1]);   end; end; begin  assign(f, '1.txt');   reset(f);   for i: =1 to 8 do begin    read(f, c);     convert(c,cc);     x[i]: =cc;   end;   close(f);   sorting(n,x);   sum: =x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8];   ma: =sum/8;       assign(output, 'output.txt');   rewrite(output);   writeln(output, sum); writeln(output, ma);   close(output); end.

qbasic:

 

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

 

max(n) = 7, при a = 0