уеее1
18.10.2021 11:14

Работа по теме «информации и информационные
формяпионные процессыл
і вариант
в таблице запросы к поисковому серверу. для каждого папроса
указан его код — соответствујошая буква от а до г, расуолбумите кои
слева направо в порядке возрастани количества страниц, которые нашёл поис
coый сервер по јадому запросу. по всем запросам было найдено разное коли-
чество страниц. для обозначения логической операции «или, и запросу
используется символ «», а для логической операции «и» — «в:
код
запрос
л | рыжий & честный
б
рыбкий | честый | влюбленный
в pький & честный & влюблённый
г рыжий | честный
2. три друга: арбузов, виноградов и огурцов встретились на рынке, куда
пришли за покупками, купивший арбуз сказал виноградову; «любопытно
один из нас купил арбуз, другой – виноград, а третий огурцы, но ни у кого
покупка не соответствует фамилии». что купил каждый из беседующих?
3. от разведчика была получена следующая шифрованная радиограмма, пе-
реданная с использованием азбуки морзе:
при передаче радиограммы было потеряно разбиение на буквы, но известно,
что в радиограмме использовались только следующие буквы:
ar m
ю
расшифруйте радиограмму. запишите в ответе расшифрованную
радиограмму.
4. залишите единицы измерения информации в порядке убывания:
1 кбайт, 1025 байт, і мбайт, 925 кбайт, 2 мбайт
5. для записи текста использовался 64-символьный алфавит. какой объём
информации в килобайтах содержат 10 страниц текста, если на каждой странице
расположено 32 строки по 64 символа в строке? ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Nastusha21032005
20.11.2020 17:21
Program ZAD00; {} uses crt;
var a,b:array[1..20] of real;
i:integer;
mina,minb,s:real;
Begin
{ заполнение массива А}
for i:=1 to 7 do begin write('введите элементы a[',i,']='); read(a[i]); end;
{ заполнение массива B}
for i:=1 to 9 do begin write('введите элементы b[',i,']='); read(b[i]); end;
{ min в массиве А}
mina:=a[1];
for i:=1 to 7 do begin
a[8]:= 32767 ;
if (a[i]>= a[i+1]) and (a[i+1]<=mina) then mina:=a[i+1]  end;
{ min в массиве B}
minb:=b[1];
for i:=1 to 9 do begin
b[10]:=32767;
if (b[i]>= b[i+1]) and (b[i+1]<=minb) then minb:=b[i+1]  end;
{ сложение minA и minB}
s:=mina+minb;
{ вывод результатов на экран
for i:=1 to 7 do begin write(a[i],' '); writeln; end;
for i:=1 to 9 do begin write(b[i],' '); writeln; end;
writeln('minA=',mina);
writeln('minB=',minb);
writeln('сумма их s=', s);
End.
0,0(0 оценок)
Ответ:
dnaknaf
24.01.2021 02:58
Не трудно, но не полностью условие выполнено. Лови решение:

program arrs;
var
a : array[1..26] of integer;
i, min, max : integer;
m1, m2 : byte;

begin
randomize;
for i:=1 to 26 do begin
a[i] := random(29)-15;
write(a[i], ' ');
end;
min := 15;
max := -20;
for i:=1 to 26 do begin
if a[i] < min then begin
min:=a[i];
m1 := i;
end;
if a[i] > max then begin
max:=a[i];
m2 := i;
end;
end;
writeln;
writeln('Минимальный элемент в ячейке ', m1, ' равен ', min);
writeln('Максимальный элемент в ячейке ', m2, ' равен ', max);
end.

тестовый прогон:

0 2 -1 2 -9 -13 -9 -5 0 -14 11 6 8 -11 13 3 -15 -6 -15 -14 -3 13 9 7 3 -4
Минимальный элемент в ячейке 17 равен -15
Максимальный элемент в ячейке 15 равен 13
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота