1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
Uses crt;
var a,b,c,input:integer;
begin
readln(input);
a := input div 10;
a := a div 10;
b := input div 10;
b:=b mod 10;
c := input mod 10;
if (a + b + c) > 10 then writeln('Больше 10') else writeln('Меньше 10');
end.
111011101₂ = 477₁₀ = 735₈ = 1DD₁₆
1101001₂ = 105₁₀ = 151₈ = 69₁₆
1101111001₂ = 889₁₀ = 1571₈ = 379₁₆
1101101101₂ = 877₁₀ = 1555₈ = 36D₁₆
11000010001₂ = 1553₁₀ = 3021₈ = 611₁₆