Создать файл из 250 целых чисел, лежащих на отрезке [20,5000], используя генератор случайных чисел. -вывести его на экран. -сколько в нем чисел, кратных сумме квадратов своих цифр. -найти все числа, отличающиеся от наибольшего не более, чем на 50. (не знаю как доделать) var f: file of byte; i, n, x, t: byte; s: real; begin assign (f, 'numbers.dat'); rewrite (f); write ('n='); readln (n); randomize; for i: =1 to n do begin x: =random (4800)+20; write(f, x); write(x,' '); end; seek (f,0); s: =0; while not eof (f) do begin read (f, x); t: =x; repeat t: =

Var       f: file of integer;       i, n, x, t, k, max: integer;       s: integer; begin       randomize;       write('n=');       readln(n);             assign(f, 'numbers.dat');       rewrite(f);             max : = -1;       for i : = 1 to n do       begin               x : = random(4800) + 20;               write(f, x);               write(x, ' ');               if x > max then max : = x;       end;       writeln;             seek(f, 0);       k : = 0;       while not eof(f) do       begin               read(f, x);               t : = x;               s : = 0;               while t > 0 do               begin                       s : = s + sqr(t mod 10);                       t : = t div 10;               end;               if x mod s = 0 then k : = k + 1;               if x > max - 50 then write(x, ' ');       end;       writeln;             writeln(k); end.

Давай разбираться. маша сидела на крайнем правом месте. а захотела сесть между светой и настей, причем так, чтобы катя сидела справа. маша не могла сесть на 1 место, потому что оно не между другими. если маша села на 3 место, то справа от нее оказались 2 девочки - катя и еще одна. но мы знаем, что кате не пришлось пересаживаться, значит, она сидела на 3 месте. света сидела рядом с машей, значит, она была на 1 месте. а на 4 место, то есть на место маши, села настя.