<u>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
WriteAllText('out.txt',(a*a+b*b+c*c).ToString)
end.
PascalABC.NET 3.4
begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.
Ответ: а меня ругать не будете ?
Объяснение:
71₈ = 1*8⁰ + 7*8¹ = 57₁₀
71₁₆ = 1*16⁰ + 7*16¹ = 113₁₀
110011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ = 51₁₀
211₁₀ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11010011₂
190₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10111110₂
88₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1011000₂
Ответ:
import itertools
import re
lines = []
with open("input.txt", "r") as f:
line = f.read()
for string in line.split('\n'):
if len(string) > 1:
a = [item for item in re.compile('\d+').findall(string)]
a = len(set(a))
lines.append(a)
with open(r"output.txt", "w") as file:
for line in lines:
file.write(str(line) + '\n')
Объяснение:
Python 3.7
begin
var a := ArrRandom(7, 16, 40); a.Println;
var (ind, el) := a.Numerate.MinBy(x -> x[1]);
Print('index:', ind, 'element:', el)
end.