Var m1,m2,m3,m4,m5:set of char;
c:char;
begin
m1:=['0'..'9'];
m2:=['.',',',':','?','!',';'];
m3:=['a'..'z'];
m4:=m1*m2*m3;
m5:=m1+m2+m3;
writeln('Пересечение множеств:');
for c:=chr(32) to chr(255) do
if c in m4 then write(c:2);
writeln;
writeln('Объединение множеств:');
for c:=chr(32) to chr(255) do
if c in m5 then write(c:2);
writeln;
end.
Результат:
Пересечение множеств:
Объединение множеств:
! , . 0 1 2 3 4 5 6 7 8 9 : ; ? a b c d e f g h i j k l m n o p q r s t u v w x y z
240 Кбайт = 240*1024 байт = 240*1024*8 бит
Количество пикселей в изображении = 600*400
Память для одного пикселя = 240*1024*8 / (600*400) бит ≈ 8 бит
Количество цветов в палитре N=2^i = 2^8 = 256
N=12
m=11
k=12-11+5=6
B[12,11]=12*12-11*11+6=29
Вместо Х там должно быть 2
Program Archi;
uses crt;
var
x:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите x: ');
readln(x);
writeln('При х=',x,'');
writeln('3sin(sqrt(3))+0,35x-3,8 = ',3*sin(sqrt(3))+0.35*x-3.8:0:3);
end.