// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.
program task;
var a,b,c,x:real;
begin
readln(a,b,c);
x:=sqrt(4*a*c+b);
writeln(x)
end.
Возможно я не так понял, конечно, но эта блок-схема -- бред.
Во первых, i -- целое число, так-что никаких 1.56 мы ей пресвоить не можем.
Во вторых, это просто бесконечное умножение, условия выхода из цикла -- нет.
1.
2(10) = 10(2); (10)- индекс внизу без скоб
7(10) = 111(2);
17(10) = 10001(2);
68(10)= 1000100(2);
315(10)= 100111011(2).
2.
101(2)= 1 * 2^(2) + 0 *2^(1)+ 1 . 2^(0) = 4 + 1 = 5(10);
11101(2) = 1 *2^(4) + 1 * 2^(3) + 1 *2^(2)+ 0 *2^(1) + 1 *2^(0)= 16 + 8 + 4 + 1 = 29(10);
101010(2) = 1 *2^(5) + 0 *2^(4)+ 1*2^(3) + 0 *2^(2) + 1 *2^(1) + 0 *2^(0)= 32 + 0 + 8 + 0 + 2 + 0 = 42(10);
100011(2) = 1 *2^(5)+ 0 * 2^(4) + 0 *2^(3)+ 0 *2^(2) + 1 *2^(1) + 1 *2^(0)= 32 + 2 + 1 = 35(10).