ДАЮ 30 Б После выполнения команды присваивания x:=x+y значение переменной x равно 7, а значение переменной y равно 29. Чему были равны значения переменных x и y до выполнения указанной команды присваивания?

Відповідь:

До выполнения программы:

y = 29

x = -22

CHKDSK (сокращение от check disk — проверь диск) — стандартное приложение в операционных системах DOS и Microsoft Windows, которое проверяет жёсткий диск или дискету на ошибки файловой системы (например, один и тот же сектор отмечен как принадлежащий двум разным файлам) . CHKDSK также может исправлять найденные ошибки файловой системы.

Под Windows NT, Windows 2000 и Windows XP, CHKDSK также может проверять поверхность жёсткого диска на наличие физически повреждённых секторов (bad sectors). Найденные сектора отмечаются как повреждённые, и система больше не пытается читать с этих секторов или писать на них. Ранее эту задачу выполнял SCANDISK.

В системе UNIX аналогичная команда называется fsck.

По умолчанию, CHKDSK не исправляет ошибки и не проверяет поверхность диска на наличие повреждённых секторов. Для исправления ошибок необходимо задать флаг /F. Для поиска повреждённых секторов (наряду с ошибками файловой системы) необходимо задать флаг /R.

Если использовать флаг /R или /F, CHKDSK требует монопольный доступ к диску на чтение. Поэтому если на диске есть открытые файлы (например, если это загрузочный диск) , CHKDSK не может начать работу немедленно. Вместо этого, он предлагает автоматически выполниться при следующем перезапуске ОС.

Выполнение CHKDSK занимает некоторое время (обычно минуты или десятки минут) . Для того, чтобы посмотреть результаты CHKDSK, выполненного при перезапуске ОС, необходимы следующие шаги:

Откройте Control Panel
Дважды щёлкните мышкой на Adminstrative Tools
Дважды щёлкните мышкой на Event Viewer
Щёлкните мышкой на Application в левой части окна
В колонке Source найдите слово Winlogon
Дважды щелкните мышкой на найденной строке
Чтобы запустить CHKDSK под Windows, можно или набрать команду из консоли, или выполнить следующие шаги:

Запустить приложение My Computer
Щёлкнуть правой клавишей мышки на нужный диск или дискету
Выбрать Properties
Выбрать закладку Tools
Нажать кнопку Check now

1)
var
  n, i, c, sum, sum2, c2: integer;
   a: array of integer;
 begin
  sum := 0;
   sum2 := 0;
  c2 := 0;
  c := 0;
   readln(n);
   setlength(a, n);
   for i := 0 to n - 1 do
   begin
    read(a[i]);
     if(a[i] > 0) and (a[i] > 6) then
     begin
      sum := sum + a[i];
       c := c + 1;
     end;
     if(a[i] mod 2 = 0) and (a[i] > 6) then
     begin
      sum2 := sum2 + a[i];
      c2 := c2 + 1;
     end;
   end;
   writeln(sum / c);
   write(sum2 / c2);
 end.
2)
var
  n, i, max, im: integer;
  a: array of integer;
 begin
  im := 1;
  readln(n);
  setlength(a, n);
  for i := 0 to n - 1 do
  begin
    read(a[i]); if(i = 1) then max := a[0];
    if(a[i] > max) then
    begin
     max := a[i];
     im := i + 1;
    end;
  end;
  write((max * 2) / im);
end.