приставка киго не существует, по этому принимаю буквенное обозначение кб
тогда
10000 байт = 9,765625 килобайт
10000 байт = 0,00953674 мегабайт
600000 байт = 585,9375 килобайт
Ответ дал: Гость
формула:
2^i
2^2=4 цвета
т.е. в двоичном коде:
00
01
10
11
Ответ дал: Гость
uses crt;
var x,y: real;
n: integer;
begin
clrscr;
writeln('введите координаты точки: ');
readln(x,y);
if(x=0)and(y< > 0) then write('точка попала на ось y')
else if (x< > 0)and(y=0) then write('точка попала на ось х')
else
begin
else if (x> 0)and(y> 0)then n: =1
else if (x< 0)and(y> 0) then n: =2
else if (x< 0)and(y< 0) then n: =3
else if(x> 0)and(y< 0) then n: =4
write('n=',n);
end;
readln end.
Ответ дал: Гость
program a1; var a: array[1..30] of integer; amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], ' '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do if a[i]> amax then begin amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do if a[i]< amin then begin amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];
a[imin]: =a[imax];
a[imax]: =s; for i: =1 to n do writeln(a[i],' '); end.
Популярные вопросы