1. for i := 1 to 10 do begin readln(n); if (even(n)) then s := s + n; end;
2. for i := 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end;
3. for i := 1 to 10 do begin readln(n); if (10 <= n) and (n <= 20) then m := m * n; end;
Объяснение:
#наименьшее кратное 3 на отрезке [1; 1000]
#(x+k-1)//k - деление с округлением вверх
mn = (1+(3-1))//3 * 3
#наибольшее кратное 3 на отрезке [1; 1000]
#x//k - деление с округлением вниз
mx = 1000//3 * 3
#среднее арифметическое чисел, кратных 3
#это следует из формулы суммы арифметической прогрессии
#sum = (a1+an)/2*n - сумма
#mean = sum/n = (a1+an)/2 - среднее
mean = (mn+mx)/2
print(mean)
Всего 8 автомобилей ГАЗ
(где i-количество информации (округляем в большую сторону) N - количество автомобилей)
Получается 3 бита
5 автомобилей ЗИЛ - 3 бита
6 автомобилей КаМАЗ - 3 бита
3 автомобиля MAN - 2 бита