Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>
name = int(input())
name1 = (name % 10)
name10 = (((name % 100) - name1) / 10)
name100 = (name // 100)
if name1 == name10 == name100:
print('В числе все цифры одинаковые')
elif name1 == name10 > name100 or\
name1 == name10 < name100 or\
name1 == name100 > name10 or\
name1 == name100 < name10 or\
name10 == name100 > name1 or\
name10 == name100 < name1:
print('В числе две цифры одинаковые')
else:
print('ОК')
Делим 1000 монет на 4 кучки по 250 монет. В одной из этих кучек есть фальшивая монета(она либо легче либо тяжелее обычной монеты)
ложим на весы две кучки по 250 монет. Если вес у них равен, то среди них нет фальшивой монеты. Ложим две другие кучки. Тот вес, который отличается от прошлого взвешивания говорит о том, что в кучке есть фальшивая монета(это мы определяем на втором взвешивании).
Мы определили кучку с фальшивой монетой. Дальше разбиваем кучу еще раз и повторяем операцию
Изначально кучу можно разбить по разному, например, на 10 кучек по 100 монет
1)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
closegraph;
end.
2)
Program graph1;
uses graph;
var gd,gm,error,a,b: integer; x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;
readln;
closegraph;
end.
<span>
</span>
Так как результат вычислений надо получить в десятичной системе счисления, то переведем все числа, которые нам даны, в десятичную систему счисления. Затем найдем значение выражения, как принято в математике.