Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
Фарфоровый сервиз,
материал фарфор
удельная теплоемкость 0.80 кДЖ/кг*С
Графический файл
содержит любой тип устойчивых графических данных (изображений), предназначенных для последующей визуализации.
информационный объем в байтах , килобайтах, мегобайтах
1) ГВДАБ
2) по кругам Эйлера на фото
В прикрепленном изображении указаны формулы, необходимые для решения этой задачи. Код программы приведен ниже.
Удачи!
var a1, a5, an, d, sum, n : integer;
begin<span>
readln(a1, a5, n);<em>{получаем на вход первый и пятый члены прогрессии и число n}</em></span><span>
d := (a5 - a1) div 4; <em>{Находим разность прогрессии}</em></span><span>
an := a1 + (n - 1) * d;<em>{Находим член прогрессии с номером n}</em></span><span>
sum := ((a1 + an) * n) div 2; <em>{Находим сумму первых n членов прогрессии}</em></span><span>
writeln('n-ый член прогрессии: ', an);</span><span>
writeln('Сумма первых n членов прогрессии: ', sum);
</span>end.<span>
</span>