Студент ответил на 4. Ему предлагают самому оценить свой ответ. Со-

ставить программу, которая выдает сообщение:

«Не много ли будет?», если он поставил 5

«Это верно!», если он поставил 4

«Не скромничай!», если он поставил 3

надо написать программу кто-нибудь

первый для однократной записи

а второй для перезаписывания(тоесть на нем возможно перезаписывание)

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

скорость в мб/c 100/8 = 12,5 мб/c

переведем в кб/с = 12,5 * 1024 =   12800 кб/с

тогда время передачи будет равно t= 100/12800 = 0,0078125 секунд 

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.