Держи ))) удачи )))
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.
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.
1)
8 Кбайт=8*2^13 бит =2^16 бит
256*256=2^8 * 2^8=2^16 пикслей
2^16 бит : 2^16 пикселей = 1 бит для кодирования одного пикселя
2^1 =2 цвета <--- ответ
2) 24*800*600=11 520 000 бит =
=1440000 байт =1406,25 Кбайт≈1407 Кбайт <---- ответ
3)
640*480*8=(5* 2^7) * (15*2^5) * (2^3) бит=75*2^15 бит=
=75*2^12 байт = 75*2^2 Кбайт =75*4 Кбайт = 300 Кбайт <--- ответ
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5
I) В двоичную
а) 89 = 01011001
б) 600 = 001001011000
в)2010 = 011111011010
ll) В восьмеричную
а) 513 = 1001
б) 600 = 1130
в) 2010 = 3732
lll) В шеснадцатиричную
а) 513 = 201
б) 600 = 258
в) 2010 = 7DA