Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
1027 = 1024 + 3 = 2¹⁰ + 2¹ + 2⁰
Каждое слагаемое - целочисленная степень двойки, поэтому оно даст в двоичном представлении одну единицу. Поскольку слагаемых три, то и единиц в записи числа будет три.
<u><em>Ответ: 3</em></u>
Var a, x, b, s: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if (-2*b)/a < 0 then writeln('Нет решения') else
begin
x:=sqrt((-2*b)/a);
if x=0 then writeln('x = 0') else
writeln('x1 = ', x, ' | x2 = ', -x)end
end.