Объяснение:
#наименьшее кратное 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)
Program a_86betiri;
uses crt;
const n=20;
var
a:array[1..n] of real;
sum, mt: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
mt:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
sum:=sum+a[i];
end;
writeln('Элементы массива:');
for i:=1 to n do
begin
if a[i]<(sum/n) then
mt:=mt*a[i];
write (a[i]:7:2);
end;
writeln();
writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt);
end.
Сколько вершин? 31
Есть ли рёбра? Да
Есть ли направление? Нет
Все вершины соединены рёбрами? Да
Пояснение:
Вершины просто посчитать. Рёбра безусловно есть, они соединяют вершины. Направления нет (неориентированный граф, нет стрелочек на рёбрах). Все вершины соединены, нет изолированных, то есть граф связный.
Пожалуй больше ничего и не скажешь. Разве что такие графы называются "деревьями", в этом случае дерево двоичное. То есть один корень, и степени вершин неориентированного в данном случае дерева не превосходят 3. Этого в задании нет, однако можно отметить для общего развития.
Program z1; var t, c, d, e, n, z:integer; begin
writeln ('введите любое четырёхзначное число'); writeln; readln (n);
t:=n div 1000;
c:=(n-t*1000) div 100;
d:=(n-t*1000-c*100) div 10;
e:=n-t*1000-c*100-d*10;
z:=t+c+d+e; writeln (z); writeln;
if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')
else writeln ('нет, сумма цифр в числе не чётна'); end.