Принтер наверно,
Смотри Справа от клавы- мышь
Между мышью и принтером-клава
Тоесть Юре остается только принтер, поскольку монитор они не переносили
//PascalABC.Net
//1
var
a, b, c: real;
begin
readln(a, b, c);
writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.
//2
var
a, b, c: real;
begin
readln(a, b, c);
writeln('Наименьшее число: ', min(a, min(b, c)));
writeln('Наибольшее число: ', max(a, max(b, c)));
end.
var x:integer;
begin
writeln('введите число');
readln (x);
case x of
0:writeln ('Zero');
1:writeln ('One');
2:writeln ('Two');
3:writeln ('Three');
4:writeln ('Four');
5:writeln ('Five');
6:writeln ('Six');
7:writeln ('Seven');
8:writeln ('Eight');
9:writeln ('Nine');
end;
end.
K, M, G и T - это названия размерностей информации: Килобайт, Мегабайт, Гигабайт и Терабайт соответственно. Переменная A служит для временного "принятия" количества байт, которые переведутся в K, M, G и T.
Как бы проще объяснить, откуда 1024 - не знаю. В информатике так устроено, что в бит - это 1 элемент, байт - 8 битов, килобайт - 1024 байт и с этого момента последующая размерность будет иметь 1024 информации предыдущей размерности, то есть мегабайт - 1024 килобайт, гигабайт - 1024 мегабайт и так далее. Вообще - это стоит просто запомнить.