Как исправить баги с мышкой на коврике? После установки драйвера для мышки bloody 7, она перестала работать на коврике, глючит. Если держать мышку немного в воздухе, то она работает как по маслу.

1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.

Цели урока учащимся усвоить понятие информации и кодирования информации в компьютере; - познакомить учащихся со кодирования и декодирования текстовой информации с кодовых таблиц;

- воспитание информационной культуры учащихся, внимательности, аккуратности, дисциплинированности, усидчивости.

- развитие мышления, познавательных интересов, навыков работы с мышью и клавиатурой, самоконтроля, умения конспектировать.

Оборудование:

- рабочее место ученика, ПК;

- интерактивная доска, мультимедийный проектор;

- интерактивная презентация;

- таблица самооценки знаний, умений

Задачи урока:

- формировать знания учащихся по теме “Кодирование и обработка текстовой информации”;