4. определите значение переменной с после исполнения данного алгоритма. a: = 6 a: = (a + 3) – a – a b: = 21 + a*a c: = b/(–a) + 5

A:= 6
a:= (6 + 3) - 6 - 6 {значение а = -3}
b:= 21 + (-3)*(-3) {значение b = 30}
c:= 30/(-3) + 5 {значение с = -5}
ответ: с = -5.

Реестр и перегруженный диск

Вторая причина торможения компьютера - это конечно же замусоренный реестр и перегруженный системный диск. Если у Вас в реестре Windows много различных записей из-за того, что Вы постоянно устанавливаете и удаляете различные программы, то это также может стать причиной торможения компьютера. Нужно знать, как правильно почистить компьютер, чтобы он не тормозил и не глючил. И начнём мы с реестра.

Чтобы почистить реестр рекомендую использовать простую программу CCleaner. Скачайте, установите и запустите её.

Перейдите в раздел Реестр, убедитесь что здесь стоят все галочки, и нажмите Поиск проблем.

Поиск ошибок в реестре Виндовс

Программа найдёт весь ненужный хлам в реестре и предложит его Очистить. Нажимаем кнопку Исправить и исправляем.

Исправление ошибок в реестре

Повторяем эту процедуру, до тех пор, пока в реестре не будет найдено минимальное количество проблем.

Также нам нужно почистить диск С. Заходим в раздел Компьютер, нажимаем правой кнопкой мыши по системному разделу и выбираем пункт Свойства.

Свойства системного диска

Здесь находим кнопку Очистка диска, и ждём пока программа проанализирует данные и предложит удалить ненужный хлам.

Очистка системного диска

Поиск ненужных файлов

После анализа нам нужно поставить галочки напротив всех пунктов и нажать Ок и Удалить файлы.

Удаление ненужных файлов

Удалить файлы в Очистке диска

А ещё не забудьте очистить папки TEMP. Это временные папки, файлы в которых вообще не нужны.

Заходим в раздел Компьютер - Диск (C:) - Папка Windows - Папка TEMP. То, что внутри, это ненужные файлы, выделяем и удаляем.

Папка TEMP

Также нужно очистить вторую папку ТЕМП. Для этого нажимаем на клавиатуре Win+R, вводим команду %TEMP% и нажимаем Ок.

Команда Выполнить

У нас открывается вторая папка TEMP, эти файлы тоже не нужны. Выделяем их все и Удаляем.

Вторая папка TEMP

Итак второй мы тоже разобрали. Обязательно чистим реестр от хлама и диск от ненужного мусора. Это очень важно!

Pascal ABC.

1. Код с предусловием:

var

  a, b, n, s: integer;

begin

    readln(a, b);

    s := 1;

    n := 0;

    while a <= b do begin

          if a mod 2 = 0 then begin

             s := s * a;

             inc(n);

          end;

          inc(a);

    end;

    writeln( exp(ln(s)*(1/n))  );

end.

2. Код с постусловием:

var

  a, b, n, s: integer;

begin

    readln(a, b);

    s := 1;

    n := 0;

    repeat

          if a mod 2 = 0 then begin

             s := s * a;

             inc(n);

          end;

          inc(a);

    until a > b;

    writeln( exp(ln(s)*(1/n))  );

end.