Написать программу. Даны 2 числа a и b. Найти среднее арифметическое всех чисел кратных 3 из интервала [a, b].

program zz1;

var a, b, r, i, k:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

for i:=a to b do / / организуем цикл, в котором переберем все числа от а до b

if i mod 3 = 0 then begin r:=r + i; k:=k+1; end; / / вычисляем сумму чисел от а до b кратных трем и их количество

write (' среднее арифметическое чисел кратных трем от ', a,' до ', b,' = ', r/k); / / выводим ответ

end.