var a:integer;
begin
writeln('Введите год:');
read(a);
if (a>=2001) and (a<=2100) then begin
writeln('Относится');
end
else
writeln('Не относится');
end.
Код картинкой и результат его выполнения во вложениях.
N=2^16
16 бит
64*10*32=20480
20480*16=327680бит
40кб
Трансляция - это когда по теливизору идет в настоящее время какое-то видео или что-то другое.