Блок-схема - в прилагаемом файле.
Программа:
program p3;
var a,b,s,k,i:integer; // описание переменных
begin
a:=500; b:=900; // задание значений переменным a и b
s:=0; k:=0; // задание начальных значений s и k
for i:=a to b do // цикл с параметром i, который меняется от a до b
if (i mod 3=0)and(i mod 5=0) then // если остаток от деления i на 3=0 и
// остаток от деления на 5 =0, то
begin s:=s+i; k:=k+1; end; // добавляем найденное число к сумме (s) и
// увеличиваем на 1 количество найденных чисел
writeln('Искомое среднее арифметическое = ',s/k:5:1); // вывод на экран
readln;
end.
Результат:
Искомое среднее арифметическое = 705.0
