Переведем 159 в двоичную сс. 100101111
ответ: 3
Var a,b,c: integer;
begin
writeln('a,b = '); readln(a,b);
c:=a+b;
writeln(c);
end.
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
1 цикл. 1*1=1
2 цикл. 1*2=2
3цикл.2*3= 6
ответ. 6