//Pascal ABC.Net
Var a:array[1..1000] of longint;n,i:longint;
Begin
writeln('Введите количество чисел');
readln(n);
writeln('Введите числа');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]<0) then writeln('Число ',a[i],' отрицательное')
else if (a[i]>0) then writeln('Число ',a[i],' положительное')
else writeln('Число ',a[i],' равно нулю');
End.
k бит позволяют кодировать 2^k символов, поэтому для кодирования 8-символьного алфавита требуется 3 бита (ведь 2³=8 ). Для хранения 20 символов требуется 20*3=60 битов. Минимальное количество байт, вмещающее в себя 60 битов - 8 байт (64 битов).
Соответственно на 20 пользователей нужно 20*(12+8) байт = 400 байт
Это способ поиска файлов по образцу, где * обозначает любое количество любых символов, ? - один любой символ.
Например:
Есть маска "сто?.txt", ей соответсвует любой файл формата .txt с названием из четырех букв и начинающийся со "сто", примерами таких файлов могут быть: "стог.txt", "стол.txt", "сто5.txt" и другие.
Пример со "*":
Маска "с?*г.*", по этой маске можно найти файлы, начинающиеся с "с", имеющие минимум одну букву между "с" и "г", и в любом формате (после точки идет *), например: "стог.doc", "с5г.rus" и другие.
Const n=20;
var
min1,min2,i: integer;
a: array[1..n] of integer;
begin
randomize;
min1:=MaxInt;
min2:=MaxInt;
for i:=1 to n do begin
a[i]:=random(100);
write (a[i]:3);
if a[i]<min1
then begin min2:=min1; min1:=a[i]; end
else if a[i]<min2
then min2:=a[i];
end;
writeln;
writeln ('min1 = ',min1);
writeln ('min2 = ',min2)
end.
=================================
93 95 16 61 94 54 29 32 30 8 37 53 48 54 60 42 92 71 2 12
min1 = 2
min2 = 8
а) 30, б) 70 Смотри рисунок
Вобщем, при условии, что во множестве из 40 элементов есть все элементы множества из 30, то 30
При объединении двух множеств, при условии, что ни один элемент множества из 40 элементов не повторяется в множестве из 30 элементов, то 30+40 = 70
