1решите уравнение 100х = 1448 ответ запишите в десятичной системе счисления. помните, что основание системы счисления – число положительное целое. 2 определите истинность или ложность простых высказываний: а={принтер – устройство ввода информации}, b={процессор – устройство обработки информации}, c={монитор – устройство хранения информации}, d={клавиатура – устройство ввода информации}. подставьте значения а, в,с,d и определите истинность или ложность составного высказывания: (a /\ b) → (c \/ d /\ b) 3 представлена таблица базы данных "преподаватели": фамилия кафедра должность стаж работы зайцева м.т. доцент 15 лыкова о.и. ассистент 10 морозов и.и. профессор 23 попов с.м. ассистент 4 рыков р.п. доцент 10 семенов о.р. ассистент 3 сформировать новую таблицу, удовлетворяющую запросу: "неверно, что ((должность = ассистент) или (кафедра = ))" 4 реферат, набранный на компьютере, содержит 24 страницы. половина этих страниц набрана так, что на каждой странице 48 строк, в каждой строке 64 символа. другая половина такова, что на каждой странице 24 строки, в каждой строке 32 символа. для кодирования используется кодировка unicode, при которой каждый символ кодируется 2 байтами. определите информационный объем реферата. 5 на студии при четырехканальной (квадро) звукозаписи с 32-битным разрешением за 30 секунд был записан звуковой файл. сжатие данных не производилось. известно, что размер файла оказался 7500 кбайт. с какой частотой дискретизации (в кгц) велась запись? 6 у васи есть высокоскоростной доступ к сети интернет со скоростью 220 бит/сек. петин компьютер связан с васиным через канал связи со скоростью 216 бит/сек. петя договорился с васей, что тот будет скачивать для него данные объемом 20мбайт из интернета и ретранслировать их пете. компьютер пети может начать ретрансляцию данных не раньше, чем им будут получены первые 2мбайта этих данных. каков максимально возможный промежуток времени (в секундах), с момента начала скачивания васей данных, до полного их получения петей.
program pr10;
uses crt;
var
i: integer;
t: real; // рабочая переменная
i: byte; // счетчик массива
k: byte; // параметр цикла
a: array[1..15] of real;
n: byte; // размерность цикла
begin
clrscr;
write('введите размерность: ');
readln(n);
writeln('введите ',n,' элементов');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив: ');
for i: =1 to n do
write(a[i]: 5: 1,' ');
readln;
// блок обработки
for k: =1 to n do
for i: =1 to n-k do
if(a[i]> a[i+1]) then
// перестановка
begin
t: =a[i];
a[i]: =a[i+1];
a[i+1]: =t;
end;
writeln('отсортированный массив: ');
for i: =1 to n do
write(a[i],' ');
writeln;
readln;
end.
я хз как правильно проверить простое число или нет. вот код, который просто сортирует массив по возрастанию.
type cl = class
a: integer;
constructor create(b: integer);
procedure setval(b: integer);
function getval: integer;
procedure sq;
end;
constructor cl.create(b: integer);
begin
a : = b;
end;
procedure cl.setval(b: integer);
begin
a : = b;
end;
function cl.getval: integer;
begin
getval : = a;
end;
procedure cl.sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('error');
end;
var
obj: cl;
a : integer;
begin
write('a = ');
readln(a);
obj : = cl.create(a);
obj.sq;
readln;
obj.destroy;
end.