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.
Реестр и перегруженный диск
Вторая причина торможения компьютера - это конечно же замусоренный реестр и перегруженный системный диск. Если у Вас в реестре Windows много различных записей из-за того, что Вы постоянно устанавливаете и удаляете различные программы, то это также может стать причиной торможения компьютера. Нужно знать, как правильно почистить компьютер, чтобы он не тормозил и не глючил. И начнём мы с реестра.
Чтобы почистить реестр рекомендую использовать простую программу CCleaner. Скачайте, установите и запустите её.
Перейдите в раздел Реестр, убедитесь что здесь стоят все галочки, и нажмите Поиск проблем.
Поиск ошибок в реестре Виндовс
Программа найдёт весь ненужный хлам в реестре и предложит его Очистить. Нажимаем кнопку Исправить и исправляем.
Исправление ошибок в реестре
Повторяем эту процедуру, до тех пор, пока в реестре не будет найдено минимальное количество проблем.
Также нам нужно почистить диск С. Заходим в раздел Компьютер, нажимаем правой кнопкой мыши по системному разделу и выбираем пункт Свойства.
Свойства системного диска
Здесь находим кнопку Очистка диска, и ждём пока программа проанализирует данные и предложит удалить ненужный хлам.
Очистка системного диска
Поиск ненужных файлов
После анализа нам нужно поставить галочки напротив всех пунктов и нажать Ок и Удалить файлы.
Удаление ненужных файлов
Удалить файлы в Очистке диска
А ещё не забудьте очистить папки TEMP. Это временные папки, файлы в которых вообще не нужны.
Заходим в раздел Компьютер - Диск (C:) - Папка Windows - Папка TEMP. То, что внутри, это ненужные файлы, выделяем и удаляем.
Папка TEMP
Также нужно очистить вторую папку ТЕМП. Для этого нажимаем на клавиатуре Win+R, вводим команду %TEMP% и нажимаем Ок.
Команда Выполнить
У нас открывается вторая папка TEMP, эти файлы тоже не нужны. Выделяем их все и Удаляем.
Вторая папка TEMP
Итак второй мы тоже разобрали. Обязательно чистим реестр от хлама и диск от ненужного мусора. Это очень важно!
