Решить "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных натуральных чисел на отрезке а и б , включая концы отрезка

var a,b,i,s: integer;

begin

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

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

Объяснение:

30) комплекс программ, организующих управление работой компьютера и его взаимодействие с пользователем.

31) последовательная загрузка файлов операционной системы в оперативную память.

32)программа, с которой пользователь решает свои прикладные задачи

33)хранить, получать и обрабатывать

34)работы с текстовой информацией в процессе делопроизводства, редакционно-издательской деятельности и др.

35)Слово

36)возможность уменьшения трудоемкости при работе с текстом

37)устройство ввода текстовой информации

38)Caps Lock

39)форматирование текста.

40)пиксель

41)3 раза

42)электронное, энергозависимое устройство для хранения информации о графическом изображении

43)часть оперативного запоминающего устройства.

44)растровым

45)Линейным

46)красного, зеленого, синего

Var       a, c: integer; begin       randomize;       a : = random(99999 + 99999 + 1) - 99999;       writeln('исходное числo: ', a);                     while a > 0 do       begin               c : = c + a mod 10;               a : = a div 10;       end;             if (c mod 3 = 0) and ((a mod 10) mod 2 = 0) then               writeln(' число делится на 6')       else               writeln(' число не делится на 6'); end.