Var a:integer;
begin
read(a);
if a>=0 then
write(a-8) else
write(a+6);
end.
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
Ответ:
N = 65 536
К = 1024 * 768
Найти:
I — ?
Решение:
N = 2i
65 536 = 2i
65 536 = 216
i = 16 (битов)
I = К * i
I = 1024 * 768 * 16 (битов) = 1024 * 768 * 2 (байтов) = 768 * 2 (Кбайт) = 1,5 (Мбайт).
Ответ:
1,5 Мбайт.
Объяснение:
Деловая бумага
подтверждает факт или письмо
на нём есть печать
он завершён подписью