begin
var quantity := 0;
var amount := 0;
var A := readinteger();
var B := readinteger();
for var i := A to B do
begin
if (i mod 3 = 0) and (i mod 10 <> 0) then
begin
inc(amount, i);
inc(quantity);
end;
end;
writeln(amount / quantity:0:2);
end.
Объяснение:
begin // Начало программы
var quantity := 0; // Объявление переменной, хранящей количество элементов, подходящих под условие
var amount := 0; // Объявление переменной, хранящей сумму элементов, подходящих под условие
var A := readinteger(); // Считывание числа А с клавиатуры
var B := readinteger(); // Считывание числа В с клавиатуры
for var i := A to B do // Идём от А до В
begin // Начало цикла
if (i mod 3 = 0) and (i mod 10 <> 0) then // Если значение переменной i делится на 3 без остатка И значение переменной i не заканчивается на 0
begin // Начало условного оператора
inc(amount, i); // Прибавляем к переменной amount значение переменной i
inc(quantity); // Прибавляем к переменной quantity единицу
end; // Конец условного оператора
end; // Конец цикла
writeln(amount / quantity:0:2); // Вывод среднего арифметического с точностью до 2 знаков после запятой
end. // Конец программы
Код (формула температуры бредовая, она должна зависить от объема. А то получается влили 1 литр с температурой 1 градус и 100 литров с температурой 100 градусов и оно посчитает температуру 50 градусов, а не около 100):
V1 = float(input("Объем воды в 1 сосуде (л): "))
t1 = float(input("Температура воды в сосуде: "))
V2 = float(input("\nОбъем воды во 2 сосуде (л): "))
t2 = float(input("Температура воды в сосуде: "))
V3= float(input("\nОбъем воды в 3 сосуде (л): "))
t3= float(input("Температура воды в сосуде: "))
print("\nТемпература в 4 сосуде:", round((t1 + t2 + t3) / 3, 3))
print("Объем воды в 4 сосуде:", V1 + V2 + V3)
var a:array[1..n] of integer;
i,j,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=Random(50);
write(a[i]:4);
end;
writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] < a[j+1] then
begin
k:=a[j]; a[j]:=a[j+1]; a[j+1]:=k;
end;
for i:=1 to n do write(a[i]:4);
writeln;
end.