{ фото огонь !!! ))) решение согласно схеме } var x, y, d: real; begin read(x,y); d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат} if d <= 1 then writeln('Входит в Д1') else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then writeln('Входит в Д2') else writeln('Не входит'); end.
Собственно, объяснение уже почти написано в самом Вашем вопросе. Когда мы в любой программе, не обязательно на языке Паскаль, записываем некое изображение числа, это число должно быть преобразовано в форму, понятную компьютеру, который будет эту программу исполнять. Попросту - в двоичную систему счисления. Такое изображение числа принято называть литералом (от английского слова literal - буквальный, константа). Договорились, что если литерал изображает число, то это число считается представленным в десятичной системе счисления. Но иногда у нас может возникнуть необходимость указать число в системе счисления, отличной от десятичной - в двоичной, восьмеричной или шестнадцатиричной. Каждый язык программирования решает это по-своему. Паскаль разрешает записывать шестнадцатиричные литералы. И для отличия требует, чтобы перед таким литералом добавляли знак доллара. Т.е. если мы написали a:=347+263; то a получит значение 610, а если написать a:=347+$263, то 958. Потому что 263₁₆ = 611₁₀ Вот и все.
Если в паскале то вот vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>
7 лампочек 8 бит 7 бит на 1измерение *80=560 бит Вот что число А не понятно в какой СС. Все переводим в 10СС В=71, С=73, Д=74, если А в 4сс , то=200 F=0 Да, истинно, тк все выражение=1
Var z,x1,x2,y1,y2:real; begin writeln('Введите x1 и y1'); readln(x1,y1); writeln('Введите x2 и y2'); readln(x2,y2); z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2))); writeln(z); <span>end.</span>