1 Мб=1000000 байт
0,5 Мб=1000000\2=500000 байт
1 байт=8 бит
512\8=64 байт
1 Гб=1024*1024 Кб
2048 Кб=2048\1048576=0,001953125 Гб
2 байт=2*8=16 бит
1 Кб=1000 байт
1000000 байт=1000000\1000=1000 Кб
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Function Knight(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
if abs(x2 - x1) = 2 then Knight := (abs(y2 - y1) = 1)
else
if abs(x2 - x1) = 1 then Knight := (abs(y2 - y1) = 2)
else Knight := false
end;
function Queen(x1, y1, x2, y2: integer): Boolean;
{ Возвращает True, если возможен переход с (x1,y1) на (x2,y2) }
begin
Queen := (x1 = x2) or (y1 = y2) or (abs(x2 - x1) = abs(y2 - y1))
end;
var
xk, yk, xq, yq: integer;
begin
Write('Укажите через пробел координаты коня [1..8]: ');
Readln(xk, yk);
Write('Укажите через пробел координаты ферзя [1..8]: ');
Readln(xq, yq);
if Knight(xk, yk, xq, yq) then Writeln('Конь бьет ферзя')
else
if Queen(xq, yq, xk, yk) then Writeln('Ферзь бьет коня')
else Writeln('Фигуры не угрожают друг другу')
end.
Примеры выполнения программы:
Укажите через пробел координаты коня [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 1 7
Ферзь бьет коня
Укажите через пробел координаты коня [1..8]: 3 5
Укажите через пробел координаты ферзя [1..8]: 7 7
Фигуры не угрожают друг другу
Укажите через пробел координаты коня [1..8]: 4 3
Укажите через пробел координаты ферзя [1..8]: 5 5
Конь бьет ферзя
Первым великим изобретением древнего Китая считается бумага. Согласно китайским летописям династии Восточная Хань, бумагу изобрел придворный евнух династии Хань — Цай Лун в 105 году н.э.
<span>В глубокой древности в Китае до появления бумаги для записей использовали скрученные в свитки полоски из бамбука, свитки из шелка, деревянные и глиняные таблички и т.д. Наиболее же древние китайские тексты или «цзягувэнь» были обнаружены на черепашьих панцирях, которые датируются 2-м тысячелетием до н. э. (династия Шан). </span>
<span>В ІІІ веке бумагу уже широко применяли для письма вместо более дорогих традиционных материалов. Разработанная Цай Лунем технология производства бумаги состояла в следующем: кипящая смесь из пеньки, коры тутового дерева, старых рыболовных сетей и тканей превращалась в пульпу, после чего её растирали до пастообразного однородного состояния и смешивали с водой. В смесь погружали сито в деревянной раме из тростника, вычерпывали ситом массу и встряхивали, чтобы жидкость стекла. При этом в сите образовывался тонкий и ровный слой волокнистой массы. </span>
<span>Эту массу затем опрокидывали на гладкие доски. Доски с отливками клали одна на другую. Связывали стопку и укладывали сверху груз. Затем затвердевшие и окрепшие под прессом листы снимались с досок и сушились. Изготовленный по такой технологии бумажный лист получался легким, ровным, прочным, менее желтым и более удобным для письма!</span>