1 двоичное число = 1 бит
4 штуки вместятся в 2 бита
значит 2 двоичных числа/цифр
1.цикл выполняется пока условие не будет верно
2.цикл с условием отличается от цикла проверяемого в конце, тем что сначала делается код а потом проверяется условие
3.Не знаю(
4.Будет выведено:158
//
Все следующее Не знаю(
//
Программа
{
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
подними_перо;
вектор(15,-15);
опусти_перо;
вектор(0,30);
вектор(15,0);
вектор(0,-30);
подними_перо;
вектор(10,0);
опусти_перо;
вектор(10,30);
вектор(10,-30);
подними_перо;
вектор(-15,15);
опусти_перо;
вектор(10,0);
}
Var y, x: integer;
begin
readln(y);
x:=y-2;
writeln(y, '= ', x, '+2');
end.
Так как-то
uses crt;
var x,s:integer;
c:char; b:boolean;
begin
while b=false do begin
x:=random(10);
if (x=4) or (x=5) then s:=s+50;
if (x=3) or (x=6) then s:=s-50;
if (x=2) or (x=7) then s:=s*2;
if (x=1) or (x=8) then sound(1000);
writeln('You points - ',s,' ',x);
if (x=1) or (x=8) or (s<0) or (c='No') then b:=true;
if b=false then begin
writeln('Continue? Enter "No" to exit.');
readln(c);
end;
end;
delay(10000);
nosound;
end.