Uses crt;var a:integer; S,R,r2,P:real;begin write ('Введите сторону a: '); readln (a); S:=((a*a)*sqrt(3))/4; R:=(a*sqrt(3))/3; P:=3*a; r2:=(a*sqrt(3)/6); writeln ('Площадь равностороннего треугольника: ',S:1:2); writeln ('Радиус описанной вокруг равностороннего треугольника окружности ',R:1:2); writeln ('<span>Радиус вписанной в равносторонний треугольник окружности</span>: ',r2:1:2); writeln ('Периметр равностороннего треугольника: ',p:1:2);end.
Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем.
var a,n,i,s:integer;
begin read(n);
while i<n do begin
read(a);
if (a mod 3=1) then s:=s+a; i:=i+1;
end;
writeln(s);<span>
end.</span>
Def pseudo_list():
for i in range(N):
yield (i*9876+1024)%1000
N = 10**6 + 1
A = pseudo_list()
count = [0] * 1000
for x in A:
count[x] += 1
x = 0
sum_count = count[0]
while sum_count <= N//2:
x += 1
<span> sum_count += count[x] </span>
<span>print(x)
Ответ: 496</span>
153₁₀ = 10011001₂
674₁₀ = 1010100010₂
29₁₀ = 11101₂
105₁₀ = 1101001₂
701₁₀ = 1010111101₂
1080₁₀ = <span>10000111000</span>₂
